Word VBA的Find.Text参数如何指定长度可变且有边界的重复匹配模式

结论 #

可以在Word的Range.Find.Text参数中指定带边界的可变长度重复匹配模式，你之前的问题是没有正确使用Word通配符的分组重复规则，且硬编码了编号偏移长度。

正确通配符说明 #

你需要匹配的编号规则是「1_{2位数字+小数点」的组合重复2}5次，对应Word通配符写法为：
([0-9]{1,2}[.]){2,5}
各部分规则说明：

• 用()把「1~2位数字+小数点」打包成一个可重复的分组
• [0-9]{1,2}匹配1到2位数字
• [.]匹配字面量小数点（Word通配符中单独的.代表匹配任意单个字符，需要放到方括号里才会识别为普通小数点）
• {2,5}代表前面的分组最少重复2次，最多重复5次，刚好覆盖你需要的2级到5级编号格式

代码修改方案 #

需要修改两处核心逻辑：

1. 把两处Find的.Text属性都替换成上述正确通配符，避免把长编号的中间片段识别为独立标题
2. 删除硬编码的范围偏移逻辑：你之前找到起始编号后直接偏移6位、结束后回退3位的写法完全不需要，直接用匹配到的Range的End/Start属性即可适配不同长度的编号

修改后的核心代码如下：

'Open the Word document
Doc = CStr(folderPath & objFile.Name)
Set wDoc = wApp.Documents.Open(Doc)
Set wRange = wDoc.Range
RngEnd = wRange.End
        
'Search for text block
With wRange
    Do While i < 7 And subRngStart2 < RngEnd
        With .Find  'Search for starting keyword
            .ClearFormatting
            .Text = "([0-9]{1,2}[.]){2,5}"
            .Forward = True
            .MatchWildcards = True
            .MatchCase = False
            .Execute
        End With
        
        If .Find.Found = True Then
            subRngStart1 = wRange.Start 'Mark starting position
            wRange.SetRange Start:=wRange.End, End:=RngEnd 'Remove hard-coded offset
            contentFlag = True
        Else
            contentFlag = False
        End If
        With .Find  'Search for ending keyword
            .ClearFormatting
            .Text = "([0-9]{1,2}[.]){2,5}"
            .Forward = True
            .MatchWildcards = True
            .MatchCase = False
            .Execute
        End With
        
        If .Find.Found = True Then
            subRngStart2 = wRange.Start 'Mark ending position
        Else
            subRngStart2 = RngEnd
        End If
        wRange.SetRange Start:=subRngStart1, End:=subRngStart2 'Set range between first and second keywords
        
        'Copy text in range to Excel
        If contentFlag = True Then
            Cells(i + 1, 1) = wRange.Text
        End If
        
        wRange.SetRange Start:=subRngStart2, End:=RngEnd 'Remove hard-coded rollback
        i = i + 1
    Loop
End With

如果存在正文误匹配的极端情况，可额外增加校验逻辑：匹配到编号后，检查字符串是否仅包含数字和小数点，过滤不符合规则的匹配结果即可。

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