word 文檔刷文字格式

 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