从PDF恢复的1000+份Word文档自带层级标题编号（如1 Heading One、1.1 Heading Two），重新应用标题编号后出现重复（如1 1 Heading One）。编写VBA宏处理时，关闭AutoWordSelection，遍历段落识别标题样式，调整文本大小写后，用自定义函数regMatch（调用VBScript RE 5.5）匹配段落开头的数字、点、空格等内容并删除。但处理一级标题1 Purpose时，明明匹配到要删除2个字符（1 ），执行后却多删1个字符变成urpose，低级标题处理正常，求除重写文本外的修复思路。

'
' Step 5: Loop through all paragraphs in the document and fix the headings
'
'turn off auto word selection or first letter of heading text gets deleted
SaveAutoWordSelection = Options.AutoWordSelection
Options.AutoWordSelection = False
            
' loop by paragraph
For Each para In DocToProcess.Paragraphs
    ' save para style
    Set tmpStyle = para.Style
    
    ' Check if the paragraph style is "Heading x"
    If Mid(para.Style.NameLocal, 1, 6) = "Headin" Then
        ' Change the case of the text to capitalize each word
        para.Range.Case = wdLowerCase
        para.Range.Case = wdTitleWord
        
        ' if the text starts with numbers - remove them
        rm = regMatch(para.Range.Text, "^[0-9. 	]+", 1)
        charcnt = Len(rm)
        If charcnt > 0 Then
            ' move to first char in para
            para.Range.Characters.First.Select
            ' delete first charcnt charaters
            Selection.Range.Delete Unit:=wdCharacter, Count:=charcnt
        End If
        
        ' reset style on the paragraph
        para.Style = tmpStyle
        
    End If
Next para

' reset word select options
Options.AutoWordSelection = SaveAutoWordSelection

注：regMatch为调用VBScript RE 5.5的自定义宏函数。

1. 替换Selection对象，直接操作Range范围 #

Word的Selection对象易受格式、隐藏字符干扰，改用直接定位要删除的Range区间：

If charcnt > 0 Then
    ' 精准定义删除范围：从段落起始位置开始，长度为charcnt的字符
    para.Range.SetRange Start:=para.Range.Start, End:=para.Range.Start + charcnt
    para.Range.Delete
End If

2. 修正正则匹配，排除段落标记 #

Word段落的Text属性会包含末尾的段落标记（vbCr），可能导致Len(rm)计算错误。修改正则表达式，只匹配开头的编号部分：
将正则改为"^[0-9. ]+(?=[^ ])"，确保不包含末尾的换行符，避免字符计数虚增。

3. 直接用RegExp获取匹配长度，替代Len(rm) #

避免rm包含不可见字符导致计数错误，直接通过正则匹配结果获取长度：

Dim re As Object
Set re = CreateObject("VBScript.RegExp")
re.Pattern = "^[0-9. 	]+"
re.Global = False
If re.Test(para.Range.Text) Then
    charcnt = re.Execute(para.Range.Text)(0).Length
    ' 直接删除对应长度的字符
    para.Range.Characters(1).Resize(charcnt).Delete
End If

4. 临时关闭标题编号再处理 #

处理前先取消段落的编号列表，避免Word自动编号机制干扰文本操作：

' 处理标题前先移除现有编号
para.Range.ListFormat.RemoveNumbers
' 完成删除操作后再重新应用标题样式（样式自带编号）
para.Style = tmpStyle

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