向老师们请教，如何替换指定样式中的特定字符串

1he0ne

向EH老师们请教，

最近整理教案时发现一个需要批处理的难题，如何替换指定样式中的特定字符串？
比如，仅替换/删除正文部分附加在单词后面的数字，但保留各级标题中的数字，如下图所示：

替换前：


替换后：


因为实在是一个VBA小白，只大概思路知道，即设定替换范围，然后查找数字串，再替换或删除。


但由于实在不会实际操作，敬请老师帮忙指导，谢谢！

1he0ne

自己搜了一下论坛中以前的帖子，请问是不是可以修改这个代码中的字符以替换数字呢？

1. Sub 替换选定区域文字()
   
2.     Selection.Find.Execute findtext:="祖国", replacewith:="家园", Replace:=wdReplaceAll
   
3. End Sub

复制代码

413191246se

1. Sub aaaa删除正文数字()
   
2.     Dim r As Range, s As Range, i&
   
3.     With Selection
   
4.         If .Type = wdSelectionIP Then
   
5.             Set r = ActiveDocument.Content
   
6.         Else
   
7.             Set r = .Range
   
8.             Set s = .Range
   
9.             i = 1
   
10.         End If
    
11.     End With
    
12.     With r.Find
    
13.         .ClearFormatting
    
14.         .Text = "[0-9]{1,}"
    
15.         .Forward = True
    
16.         .MatchWildcards = True
    
17.         Do While .Execute
    
18.             With .Parent
    
19.                 If .Paragraphs(1).Style = "正文" Then .Delete
    
20.                 If i = 1 Then .SetRange Start:=.End, End:=s.End Else .Start = .End
    
21.             End With
    
22.         Loop
    
23.     End With
    
24. End Sub

复制代码

1he0ne

@413191246se

太感谢老师了！您辛苦了！！

没想到这么复杂，看来我真的是写不出来。谢谢您！