如何动态替换某个范围内的特定内容

我不叫冰零麦

各位大神如何把word中【例a】和【例a+1】中的"数字.（"从上到小依次替换为【变式a -1】【变式a -2】……



word中 用vba把
【例1】
1．（
2．（
3．（
5．（
【例2】
1．（
1．（
12．（
【例3】
1．（

【例4】
1．（
12．（
变为
【例1】
【变式1 -1】（
【变式1 -2】（
【变式1 -3】（
【变式1 -4】（
【例2】
【变式2 -1】（
【变式2 -2】（
【变式2 -3】（
【例3】
【变式3 -1】（

【例4】
【变式4 -1】（
【变式4 -2】（

413191246se

* 楼主，请复制代码，粘贴到新建文档，再全选，复制，粘贴到 VBE 中，以防乱码。按 Alt + F8 找到宏：

1. Sub a0_M1005()
   
2.     Dim i As Paragraph, n&, m&
   
3.     For Each i In ActiveDocument.Paragraphs
   
4.         With i.Range
   
5.             If Not Asc(.Text) = 13 Then
   
6.                 If .Text Like "【例*" Then
   
7.                     n = n + 1
   
8.                     m = 0
   
9.                     .Font.ColorIndex = wdRed
   
10.                 Else
    
11.                     m = m + 1
    
12.                     If .Text Like "#*" Then .Characters(1).Delete
    
13.                     If .Text Like "#*" Then .Characters(1).Delete
    
14.                     If .Text Like Chr(-23634) & "*" Then .Characters(1).Delete
    
15.                     .InsertBefore Text:="【变式" & n & " -" & m & "】"
    
16.                     .Font.ColorIndex = wdBlue
    
17.                 End If
    
18.             End If
    
19.         End With
    
20.     Next
    
21. End Sub

复制代码

我不叫冰零麦

413191246se 发表于 2024-10-5 13:15
* 楼主，请复制代码，粘贴到新建文档，再全选，复制，粘贴到 VBE 中，以防乱码。按 Alt + F8 找到宏：

感谢大神回复，当我把他应用的这个文档中就不可以了。大神还有好的解决办法吗

413191246se

* 楼主，你的试卷附件，我不知道应该设置为什么样子的，你应该提供一个图片，将要处理的文字或达成目标标红，上一个图片附件吧！