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
posted @ 2020-03-19 14:37  iihciyekub  阅读(162)  评论(0编辑  收藏  举报