Word宏开发需求：复制选中范围内所有关联段落（含未完全选中段落）

以下是实现需求的宏代码，它会自动选中当前选择范围覆盖到的所有完整段落（包括仅被部分选中的段落），并执行复制操作：

Sub CopyAllInvolvedParagraphs()
    Dim startPara As Paragraph
    Dim endPara As Paragraph
    Dim targetRange As Range
    
    ' 确保当前有正常选中内容
    If Selection.Type = wdSelectionNormal Then
        ' 获取选中范围覆盖的第一个和最后一个段落
        Set startPara = Selection.Range.Paragraphs(1)
        Set endPara = Selection.Range.Paragraphs(Selection.Range.Paragraphs.Count)
        
        ' 构建包含所有涉及段落的完整范围
        Set targetRange = ActiveDocument.Range(startPara.Range.Start, endPara.Range.End)
        
        ' 选中并复制该范围
        targetRange.Select
        targetRange.Copy
    End If
End Sub

关键逻辑说明： #

• 先校验选中内容类型，仅处理文本类的正常选中场景
• 通过Selection.Range.Paragraphs集合定位选中范围触碰到的首尾段落
• 重新构建Range对象，从首段起始位置延伸至末段结束位置，确保包含所有涉及的完整段落
• 最后执行选中和复制操作

与原有代码的差异： #

你的原有代码仅针对选中范围内的第一个段落处理，这段代码则覆盖了选中范围涉及的全部段落，解决了部分选中段落无法被复制的问题。

内容的提问来源于stack exchange，提问作者Alexey