WORD替换问题

duquancai

13907933959 发表于 2016-11-15 19:00
前辈好！
是。
我感觉这个代码好实用！想收藏！

数字，字母好办，标点符号枚举太多！

13907933959

duquancai 发表于 2016-11-15 19:05
数字，字母好办，标点符号枚举太多！

前辈好！
感谢前辈！
也就是常用的，如（，。、：？“”！……；.％‰‘’），（）《》［］｛｝＜＞～「」『』〖〗【】＋－×÷＝／＼不知可成否？

duquancai

13907933959 发表于 2016-11-15 19:16
前辈好！
感谢前辈！
也就是常用的，如（，。、：？“”！……；.％‰‘’），（）《》［］｛｝＜＞～ ...

何必呢？查找任意字符啊！再判断不是宋体

13907933959

duquancai 发表于 2016-11-15 19:19
何必呢？查找任意字符啊！再判断不是宋体

前辈好！

就是水平低了，代码写不来，才想求前辈！

duquancai

13907933959 发表于 2016-11-15 19:28
前辈好！就是水平低了，代码写不来，才想求前辈！

1. Sub shishi()
   
2.    Dim i As Paragraph, mt, oRang As Range, n&, m&, x&
   
3.    With CreateObject("vbscript.regexp")
   
4.       .Global = True: .Pattern = "[^\x07\s\u3000\0a]"
   
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

复制代码

13907933959

duquancai 发表于 2016-11-15 19:41

前辈好！
刚运行了一下，发现小写的a更改不了颜色。

duquancai

13907933959 发表于 2016-11-15 20:06
前辈好！
刚运行了一下，发现小写的a更改不了颜色。

跟小写大写有啥关系？那就你这个小写的  a   是宋体呗

duquancai

13907933959 发表于 2016-11-15 20:06
前辈好！
刚运行了一下，发现小写的a更改不了颜色。

正则少写了个x   我没注意写漏掉了！！！

1. Sub shishi()
   
2.    Dim i As Paragraph, mt, oRang As Range, n&, m&, x&
   
3.    With CreateObject("vbscript.regexp")
   
4.       .Global = True: .Pattern = "[^\x07\s\u3000\x0a]"
   
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

复制代码

13907933959

duquancai 发表于 2016-11-15 20:12
正则少写了个x   我没注意写漏掉了！！！

前辈好！
这下可以了。
又纠缠了前辈一晚上，抱歉！心里只有感谢！感谢前辈又送了一件宝！！！

duquancai

13907933959 发表于 2016-11-15 20:27
前辈好！
这下可以了。
又纠缠了前辈一晚上，抱歉！心里只有感谢！感谢前辈又送了一件宝！！！

什么宝啊！我的主题贴“查找替换进阶”不是早就有了吗？