Word VBA如何搜索包含单个指定格式单词的目标字符串

核心思路 #

无需手动拆分目标文本分段搜索，直接通过两次原生Find操作即可实现需求：

• 第一步：无格式搜索完整目标文本串，捞取所有文本匹配的Range对象
• 第二步：在每个匹配到的短语范围内，单独定位需校验格式的目标单词
• 第三步：校验该单词的格式是否符合要求，符合则执行对应操作，不符合直接跳过
  该方案完全依托Word原生能力实现，不需要手动计算位置、重置搜索起点，灵活性、效率都远高于分段搜索方案，适配新需求仅需修改少量参数。

可复用代码示例 #

直接复制到Word VBA编辑器即可使用，仅需修改开头自定义参数即可适配你的需求：

Sub 搜索带指定格式的短语()
    ' ========== 自定义参数区 按需修改即可 ==========
    ' 要搜索的完整文本串
    Const 完整目标文本 As String = "Hello world, all is good"
    ' 要校验格式的指定单词
    Const 待校验单词 As String = "all"
    
    ' 格式校验规则，可按需修改
    Function 格式符合要求(rng As Range) As Boolean
        ' 示例为校验加粗，如需判断样式可改成：格式符合要求 = rng.Style = "你的样式名"
        ' 如需校验斜体改成：格式符合要求 = rng.Italic = True
        格式符合要求 = rng.Bold = True
    End Function
    ' ==============================================
    
    Dim searchRng As Range
    ' 搜索范围默认为整个文档，如需限定范围可自行修改
    Set searchRng = ActiveDocument.Content
    
    ' 第一轮搜索：匹配所有文本符合的完整短语
    With searchRng.Find
        .ClearFormatting
        .Text = 完整目标文本
        .MatchWholeWord = False
        .Wrap = wdFindStop
        Do While .Execute
            ' 复制当前匹配到的完整短语范围，避免修改原搜索范围
            Dim subRng As Range
            Set subRng = searchRng.Duplicate
            
            ' 第二轮搜索：在当前短语范围内定位待校验单词
            With subRng.Find
                .ClearFormatting
                .Text = 待校验单词
                .MatchWholeWord = True
                .Wrap = wdFindStop
                If .Execute Then
                    ' 格式校验通过则执行操作
                    If 格式符合要求(subRng) Then
                        ' 示例操作为选中匹配结果，可自行修改为高亮、替换等其他操作
                        searchRng.Select
                        MsgBox "找到符合要求的短语，已定位"
                        ' 如需批量处理不要弹窗，注释上面两行即可
                    End If
                End If
            End With
            
            ' 移动搜索范围到当前结果之后，避免重复匹配
            searchRng.Collapse wdCollapseEnd
        Loop
    End With
    MsgBox "全部搜索完成"
End Sub

使用说明 #

• 支持任意格式校验需求：只需修改格式符合要求函数内的判断逻辑，即可实现校验样式、字体颜色、字号、斜体、下划线等任意格式规则
• 匹配成功后的操作可自定义：将searchRng.Select替换为其他操作即可实现批量高亮、批量修改格式、导出匹配内容等需求
• 不会出现跨范围匹配问题：所有子搜索都限定在第一轮匹配到的完整短语范围内，不会出现匹配到其他位置单词的问题

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