如何在Word VBA查找功能中转义正斜杠？

问题原因 #

Word通配符查找时，*会匹配所有文本（包括隐藏内容），你设置的Font.Hidden = wdUndefined会同时匹配隐藏和非隐藏文本，导致查找逻辑混乱；另外，正斜杠在Word查找中不属于特殊字符，不需要转义，之前的转义操作无效。文档的德语来源不影响ASCII字符的查找，无需担心编码问题。

解决代码 #

分步骤精准定位方案

先找到隐藏的<tag>，再查找其后的非隐藏文本直到隐藏的</tag>，逻辑清晰不易出错：

ActiveWindow.View.ShowHiddenText = True

With Selection.Find
    ' 第一步：查找隐藏的<tag>
    .ClearFormatting
    .Font.Hidden = wdHiddenTrue
    .Text = "<tag>"
    .Forward = True
    .Wrap = wdFindStop
    .Format = True
    .MatchWildcards = False
    .Execute
    
    If .Found Then
        ' 光标移到<tag>末尾
        Selection.MoveRight Unit:=wdCharacter, Count:=5
        
        ' 第二步：查找非隐藏文本直到</tag>
        .ClearFormatting
        .Font.Hidden = wdHiddenFalse
        .Text = "*</tag>"
        .MatchWildcards = True
        .Execute
        
        If .Found Then
            ' 选中内容去掉末尾的</tag>
            Selection.MoveLeft Unit:=wdCharacter, Count:=6, Extend:=wdExtend
            ' 此处可处理获取到的标签内容，示例：打印到调试窗口
            Debug.Print "标签内容：" & Selection.Text
        End If
    End If
End With

单步通配符优化方案

通过通配符分组匹配，结合格式限定直接获取标签内容：

ActiveWindow.View.ShowHiddenText = True

With Selection.Find
    .ClearFormatting
    .Text = "<tag>([!^13^l]*)</tag>" ' [!^13^l]排除换行符，避免跨段落匹配
    .Forward = True
    .Wrap = wdFindStop
    .Format = True
    .MatchWildcards = True
    .IgnoreSpace = False
    .IgnorePunct = False
    
    ' 允许同时匹配隐藏和非隐藏格式（标签为隐藏，内容为非隐藏）
    .Font.Hidden = wdUndefined
    .Execute
    
    If .Found Then
        ' 直接提取分组中的标签内容（括号内的部分）
        Dim matchContent As String
        matchContent = .Parent.Range.SubMatches(0)
        Debug.Print "标签内容：" & matchContent
    End If
End With

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