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

413191246se

楼主，既然你要在保存时达成你的格式设置，只须把“保存”（FileSave）命令作为宏名即可：

1. Sub FileSave()
   
2.     Selection.WholeStory
   
3.     Selection.Font.NameFarEast = "华文细黑"
   
4.     Selection.Font.NameAscii = "Times New Roman"
   
5.     Selection.HomeKey Unit:=wdStory
   
6.     Do
   
7.         Selection.Find.ClearFormatting
   
8.         Selection.Find.Execute findtext:="^#"
   
9.         If Selection.Find.Found = True Then Selection.Font.Name = "Arial"
   
10.     Loop Until Selection.Find.Found = False
    
11.     Selection.HomeKey Unit:=wdStory
    
12.     ActiveDocument.Save
    
13. End Sub

复制代码

***微软官方VBA帮助如下：

413191246se

楼主，你只须把（20楼的）代码复制粘贴到 VBE 中即可，不必再做任何改变，以后在点击保存命令时，会达成你要的效果。另外，20楼附上微软官方VBA帮助的一部分，有兴趣可以学习一下，在录制宏的基础上，逐步学会 VBA 编程。

shenghua8

413191246se 发表于 2015-10-15 16:24
楼主，既然你要在保存时达成你的格式设置，只须把“保存”（FileSave）命令作为宏名即可：

***微软官方V ...

感谢帮助！

andy800529

413191246se 发表于 2015-10-15 16:25
楼主，既然你要在保存时达成你的格式设置，只须把“保存”（FileSave）命令作为宏名即可：

***微软官方V ...

看错楼层了。

竹林间

学习学习前辈的好代码

tangqingfu

收藏备用学习，谢谢413191246se兄的分享

loquat

狗尾续貂。

相见是缘8

loquat 发表于 2018-5-19 00:06
狗尾续貂。

你好！

我测试你这个代码怎么没反应，不知那里没弄好？

Sub ChangeFont()

    With ThisDocument.Content

         .Font.Name = "华文细黑"

         .Font.Name = "Times NewRoman"

    With .Find

         .Text = "[0-9]{1,}"

         .Replacement.Font.Name ="Arial"

         .MatchWildcards = True

         .Execute Replace:=wdReplaceAll

    End With

    End With

End Sub

413191246se

* loquat 老师 的代码运行 OK！但我改写了一下，使之更规范通用，测试 OK！功劳属于 loquat 老师。
* 中文字体按照 楼主 要求，可改为“华文细黑”；宏名按照 楼主 要求，可改为 FileSave 覆盖内置命令。
* WinXP与Win7 的字体区别：宋体/黑体名称相同，字形可能有区别；（基本字体4种：宋/仿/楷/黑）。
* WinXP仿宋/楷体字体名称为"仿宋_GB2312"或”楷体_GB2312"（GB意思是“国标”（国家标准）音意），
   Win7的仿宋/楷体字体名称为“仿宋”/“楷体”（罗嗦了，但旨在给不太清楚的新人重新提醒一下）。

1. Sub 字体格式设置_中文英文数字_loquat()
   
2.     With ActiveDocument.Content
   
3.         With .Font
   
4.             .NameFarEast = "仿宋_GB2312"
   
5.             .NameAscii = "Times New Roman"
   
6.         End With
   
7.         With .Find
   
8.             .ClearFormatting
   
9.             With .Replacement
   
10.                 .ClearFormatting
    
11.                 .Font.Name = "Arial"
    
12.             End With
    
13.             .Execute findText:="[0-9]{1,}", MatchWildcards:=True, Replace:=wdReplaceAll
    
14.         End With
    
15.     End With
    
16. End Sub

复制代码

413191246se

相见 你好！之所以没有反应，可能是这句：ThisDocument，这是要求将宏代码保存于你的测试文本中的模块中的，但我不喜欢保存于个别文本中，我喜欢将所有宏都保存于通用空白模板 Normal.dot 中，但太多也会引起 Word 不稳定，易崩溃。上面我写的代码已经变为通用型的了，你保存于 Normal.dot 中即可。
***再罗嗦一句：有些朋友认为，保存于通用模板 Normal.dot 中的宏代码，会在新建文档中也保存，我认为不对。因为在保存宏代码时，一般是保存于 Normal.dot 中，并非保存于文档之中，否则所有新建文档都非常大，2-300KB，实际情况不是这样，所以，我认为新建文档中是没有宏代码的，宏代码实际保存于通用空白模板 Normal.dot 中。