Word中VBA宏开发求助：批量选中指定文本范围并添加批注

核心代码示例 #

Sub AddCommentsBetweenStrings()
    Dim doc As Document
    Dim findRange As Range
    Dim startRange As Range
    Dim endRange As Range
    Dim searchString1 As String
    Dim searchString2 As String
    Dim commentText As String
    
    ' 替换为你的实际内容
    searchString1 = "String1" ' 起始标记文本
    searchString2 = "String2" ' 结束标记文本
    commentText = "需编辑内容" ' 批注显示的文本
    
    Set doc = ActiveDocument
    Set findRange = doc.Content
    
    ' 配置String1的查找规则
    With findRange.Find
        .Text = searchString1
        .Forward = True
        .Wrap = wdFindStop
        .MatchCase = False
        .MatchWholeWord = False
    End With
    
    ' 遍历所有String1实例
    Do While findRange.Find.Execute
        Set startRange = findRange.Duplicate
        ' 从String1末尾开始查找String2
        Set endRange = startRange.Duplicate
        endRange.Collapse wdCollapseEnd
        endRange.End = doc.Content.End
        
        With endRange.Find
            .Text = searchString2
            .Forward = True
            .Wrap = wdFindStop
            .MatchCase = False
            .MatchWholeWord = False
        End With
        
        ' 找到对应String2后添加批注
        If endRange.Find.Execute Then
            startRange.End = endRange.End
            doc.Comments.Add Range:=startRange, Text:=commentText
        End If
        
        ' 移动查找范围，避免重复处理同一String1
        findRange.Collapse wdCollapseEnd
    Loop
End Sub

关键逻辑说明 #

• 批量查找文档中所有String1，每找到一处，就从该位置的末尾开始查找下一个String2。
• 若匹配到对应的String2，则将范围从String1起始位置扩展到String2结束位置，为这个区间添加批注。
• wdFindStop参数确保查找至文档末尾后停止，不会循环重复查找。

自定义调整建议 #

• 修改searchString1、searchString2和commentText的值为你实际需要的文本。
• 调整.MatchCase（是否区分大小写）和.MatchWholeWord（是否匹配整词）参数，适配你的查找需求。
• 若需要处理String1后无String2的情况，可以在If endRange.Find.Execute Then的Else分支添加提示批注。

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