word替换时如何排除math公式内容，只替换文本内容

yuanfuyong

各位老师，求助一个问题：word替换时如何排除math公式内容，只替换文本内容呢，直接替换的话都会进行替换，
具体如图，谢谢了。

413191246se

楼主，请试试下面的宏（但不建议替换）：

1. Sub LoopParagraphs()
   
2. '循环遍历所有段落
   
3.     Dim i As Paragraph
   
4.     For Each i In ActiveDocument.Paragraphs
   
5.         If i.Range Like "[A-D][、.．]*" Then i.Range.Find.Execute "(g)", , , 0, , , , , , "（g）", 2
   
6.     Next
   
7. End Sub

复制代码

yuanfuyong

413191246se 发表于 2022-9-7 07:50
楼主，请试试下面的宏（但不建议替换）：

你好，老师，我试了下，选项中的实现替换了，但是我希望全文的文本（除公式内容外）都能被替换，谢谢了
不好意思，可能上面的附件展示的内容不全，我重新上传一个测试文档，麻烦帮我看看。

413191246se

* 楼主，我扩大了一下，所有半角括号中的字母都可以替换了。要是你不想扩大化，只须把“[a-z]”改为“g”或“[gl]”即可（字母 l 是不是也要变？）。

1. Sub LoopParagraphs()
   
2. '循环遍历所有段落
   
3.     Dim i As Paragraph
   
4.     For Each i In ActiveDocument.Paragraphs
   
5.         If i.Range Like "[0-9A-D][、.．]*" Or i.Range Like "[0-9][0-9][、.．]*" Or i.Range Like "[0-9][0-9][0-9][、.．]*" Then
   
6.             i.Range.Find.Execute "\(([a-z])\)", , , 1, , , , , , "（\1）", 2
   
7.         End If
   
8.     Next
   
9. End Sub

复制代码

yuanfuyong

413191246se 发表于 2022-9-7 09:47
* 楼主，我扩大了一下，所有半角括号中的字母都可以替换了。要是你不想扩大化，只须把“[a-z]”改为“g”或 ...

好的好的，刚想说来着，非常感谢

yuanfuyong

413191246se 发表于 2022-9-7 09:47
* 楼主，我扩大了一下，所有半角括号中的字母都可以替换了。要是你不想扩大化，只须把“[a-z]”改为“g”或 ...

这个我试了下，公式的还是会被替换

413191246se

* 楼主，请试用下面的两个宏：（第1个宏：全部替换；第2个宏：请手动将光标置于不想替换的公式中，再执行该宏。抱歉！不知怎么区分公式与正常想替换的部分。你怎么区分？按 Alt + F8 打开宏列表。）

1. Sub a0907_FindText()
   
2.     With ActiveDocument.Content.Find
   
3.         .ClearFormatting
   
4.         .Text = "\([a-z]\)"
   
5.         .Forward = True
   
6.         .MatchWildcards = True
   
7.         Do While .Execute
   
8.             With .Parent
   
9.                 .Characters.First.Text = "（"
   
10.                 .Characters.Last.Text = "）"
    
11.                 .MoveEnd
    
12.                 .Font.Color = wdColorRed
    
13.                 .Start = .End
    
14.             End With
    
15.         Loop
    
16.     End With
    
17. End Sub
    
18. Sub a0907_CancelChanges()
    
19. '请将光标放在不改的公式中执行此宏！
    
20.     With Selection
    
21.         Do
    
22.             .MoveStart 1, -1
    
23.         Loop Until .Text Like "[一-﨩]*"
    
24.         Do
    
25.             .MoveEnd
    
26.         Loop Until .Text Like "*[一-﨩]"
    
27.         With .Range.Find
    
28.             .Execute "（", , , 0, , , , , , "(", 2
    
29.             .Execute "）", , , 0, , , , , , ")", 2
    
30.         End With
    
31.     End With
    
32. End Sub

复制代码