WORD文档增加的宏文件,
作用:对全文中文字体更改为,DFKai-SB
:对英文字母字体更改为,Times New Roman
Sub AutoClose() Selection.WholeStory Selection.Font.NameFarEast = "DFKai-SB" Selection.Font.NameAscii = "Times New Roman" Selection.HomeKey Unit:=wdStory Do Selection.Find.ClearFormatting Selection.Find.Execute findtext:="^#" If Selection.Find.Found = True Then Selection.Font.Name = "Times New Roman" Loop Until Selection.Find.Found = False End Sub