如何用vba修改字体（分汉字、英文、数字三个类型修改）

413191246se

谢谢 loquat 老师的代码！

相见是缘8

413191246se 发表于 2018-5-20 01:26
相见 你好！之所以没有反应，可能是这句：ThisDocument，这是要求将宏代码保存于你的测试文本中的模块中的 ...

感谢大神详解！
我想再问一下，能否再用不同的颜色把它们分别标注？

413191246se

1. Sub 字体颜色设置_中文英文数字()
   
2.     With ActiveDocument.Content
   
3.         .Font.Color = wdColorBlue '蓝色
   
4.         With .Find
   
5.             '查找英文
   
6.             .ClearFormatting
   
7.             With .Replacement
   
8.                 .ClearFormatting
   
9.                 .Font.Color = wdColorPink '粉红
   
10.             End With
    
11.             .Execute findText:="[^1-^127]{1,}", MatchWildcards:=True, Replace:=wdReplaceAll
    
12.             '查找数字
    
13.             .ClearFormatting
    
14.             With .Replacement
    
15.                 .ClearFormatting
    
16.                 .Font.Color = wdColorRed '红色
    
17.             End With
    
18.             .Execute findText:="[0-9]{1,}", MatchWildcards:=True, Replace:=wdReplaceAll
    
19.         End With
    
20.     End With
    
21. End Sub

复制代码

相见是缘8

413191246se 发表于 2018-5-21 19:29

感谢！感谢！再次感谢！

云起南山

413191246se 发表于 2015-10-12 21:17
* 看楼主和升华（shenghua8）朋友讨论得很热烈，开始没敢参与，怕抢 升华 的风采！
* 但为了方便楼主工作 ...

提升 438 错误，为什么呢