求助：编写Word批量查找多词/短语并添加批注的循环宏

直接用数组存储所有需要查找的目标，通过遍历数组实现批量处理，无需编写多个宏。以下是优化后的完整代码：

Sub BatchFindAndAddComments()
    ' 定义需要查找的目标集合，可自行添加/修改单词或短语
    Dim searchTargets As Variant
    searchTargets = Array("aaa", "bbb", "ccc", "需要查找的自定义短语")
    
    Dim target As Variant
    Dim docRange As Range
    
    ' 遍历每个查找目标
    For Each target In searchTargets
        ' 每次处理新目标时，重新定位到文档开头
        Set docRange = ActiveDocument.Content
        
        ' 循环查找当前目标，找到则添加批注
        Do While docRange.Find.Execute(target) = True
            ' 批注内容可自定义，这里包含目标文本方便识别
            ActiveDocument.Comments.Add docRange, "待核查内容：" & target & " - 你的自定义批注"
        Loop
    Next target
    
    MsgBox "批量查找批注任务已完成！"
End Sub

关键说明 #

• 批量目标管理：所有要查找的单词/短语都放在searchTargets数组中，新增或修改目标只需修改这个数组，无需改动核心逻辑
• 遍历处理逻辑：通过For Each循环逐个处理每个目标，每个目标独立执行完整的查找-批注流程
• 查找范围重置：每次处理新目标时重新初始化docRange，确保从文档开头开始查找，避免遗漏
• 灵活的批注内容：批注里可以动态包含当前查找的目标文本，方便后续区分不同的核查内容

使用步骤 #

1. 打开Word，按下Alt+F11打开VBA编辑器
2. 右键点击当前文档，选择「插入」→「模块」
3. 将上述代码粘贴到模块中
4. 修改searchTargets数组和批注内容为你的需求
5. 运行宏（按下F5或点击运行按钮）

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