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