WORD替换问题

mmcha2002

一个WORD文档里面的字体有宋体  华文楷体  隶书等。

如何通过查找的方式，将一个WORD文档里面的 不是 宋体 的其他字体的文字一次全部查找出来？

duquancai

找出来干什么？

duquancai

1. Sub shishi()
   
2.    Dim i As Paragraph, mt, oRang As Range, n&, m&, x&
   
3.    With CreateObject("vbscript.regexp")
   
4.       .Global = True: .Pattern = "[一-﨩]"
   
5.       For Each i In ActiveDocument.Paragraphs
   
6.          For Each mt In .Execute(i.Range.Text)
   
7.             m = mt.FirstIndex: n = mt.Length
   
8.             Set oRang = ActiveDocument.Range(i.Range.Start + m, i.Range.Start + m + n)
   
9.             If oRang.Font.Name <> "宋体" Then
   
10.                x = x + 1
    
11.                MsgBox "第" & x & "个不是宋体的文字：" & oRang.Text
    
12.             End If
    
13.          Next
    
14.       Next
    
15.    End With
    
16. End Sub

复制代码

mmcha2002

duquancai 发表于 2016-11-15 16:36

找出来再替换成某一种颜色

duquancai

mmcha2002 发表于 2016-11-15 16:43
找出来再替换成某一种颜色

执行下面代码：（不是宋体的文字都替换为红色！）

1. Sub shishi()
   
2.    Dim i As Paragraph, mt, oRang As Range, n&, m&, x&
   
3.    With CreateObject("vbscript.regexp")
   
4.       .Global = True: .Pattern = "[一-﨩]"
   
5.       For Each i In ActiveDocument.Paragraphs
   
6.          For Each mt In .Execute(i.Range.Text)
   
7.             m = mt.FirstIndex: n = mt.Length
   
8.             Set oRang = ActiveDocument.Range(i.Range.Start + m, i.Range.Start + m + n)
   
9.             If oRang.Font.Name <> "宋体" Then
   
10.                oRang.Font.ColorIndex = wdRed
    
11.             End If
    
12.          Next
    
13.       Next
    
14.    End With
    
15. End Sub

复制代码

mmcha2002

duquancai 发表于 2016-11-15 16:48
执行下面代码：（不是宋体的文字都替换为红色！）

不用代码，用查找替换可以吗？

duquancai

mmcha2002 发表于 2016-11-15 16:50
不用代码，用查找替换可以吗？

还要限定方法，那就自己搞啊！

13907933959

duquancai 发表于 2016-11-15 16:48
执行下面代码：（不是宋体的文字都替换为红色！）

前辈好！
如能包括非宋体的标点、符号、数字、英文字母在内就更完美了！

duquancai

13907933959 发表于 2016-11-15 18:54
前辈好！
如能包括非宋体的标点符号、数字、英文字母在内就更完美了！

别人的题目就是“文字”。

13907933959

duquancai 发表于 2016-11-15 18:56
别人的题目就是“文字”。

前辈好！
是。
我感觉这个代码好实用！想收藏！
所以回复前辈，如能包括非宋体的标点符号、数字、英文字母在内就更完美了！