跪求大神word里掺杂不同编码汉字如何快速选择并高亮所有的ascii编码汉字反之亦然？

youxianwei

跪求大神word里掺杂不同编码汉字如何快速选择并高亮所有的ascii编码汉字反之亦然？

smsn

你应该是想在文中把使用
GB2312编码的汉字高亮选择吧？
只能用正则了，匹配下GB2312的字符
"[\u4e00-\u9fa5]"

1. 
   
2. Sub test()
   
3. Dim regex, m, ma
   
4. Set regex = CreateObject("VBScript.RegExp")
   
5. With regex
   
6.         .Global = True
   
7.         .Pattern = "[\u4e00-\u9fa5]"
   
8. Set ma = .Execute(ActiveDocument.Content)
   
9. Options.DefaultHighlightColorIndex = wdYellow
   
10. Selection.Range.HighlightColorIndex = wdYellow
    
11. For Each m In ma
    
12.         Selection.Find.ClearFormatting
    
13.         Selection.Find.Replacement.ClearFormatting
    
14.         Selection.Find.Replacement.Highlight = True
    
15.         With Selection.Find
    
16.             .Text = m
    
17.             .Replacement.Text = m
    
18.             .Forward = True
    
19.             .Wrap = wdFindContinue
    
20.             .Format = True
    
21.             .MatchCase = False
    
22.             .MatchWholeWord = False
    
23.             .MatchByte = False
    
24.             .MatchAllWordForms = False
    
25.             .MatchSoundsLike = False
    
26.             .MatchWildcards = False
    
27.             .MatchFuzzy = False
    
28.         End With
    
29.         Selection.Find.Execute Replace:=wdReplaceAll
    
30.     Next m
    
31.     End With
    
32. End Sub

复制代码

我是来讨说法的

一个文件里面的内容，只能有一种编码格式

smsn

这个需求也是很独特

youxianwei

smsn 发表于 2022-12-5 12:23
这个需求也是很独特

感谢分享！自己思考了下用通配符也是可以的。