一步操作配置Word环境

我们在开始编辑Word文档的时候，会发现有些事情我们总需要预先操作一下，比如100%普通视图、显示隐藏特殊标记、显示标尺、最大化窗口、显示导航窗格啥的，每次去操作，感觉很烦，那么通过下面这个宏代码可以一次搞定

 Sub InitWordEnv()
     VBA.SendKeys "% x"                                          '最大化窗口，无法被录制宏录制
     If ActiveWindow.View.SplitSpecial = wdPaneNone Then         '开启页面视图
         ActiveWindow.ActivePane.View.Type = wdPrintView
     Else
         ActiveWindow.View.Type = wdPrintView
     End If
     ActiveWindow.ActivePane.View.Zoom.Percentage =           '页面100%显示
     ActiveWindow.ActivePane.View.ShowAll = True                 '显示/隐藏编辑标记
     ActiveWindow.ActivePane.DisplayRulers = True                '显示标尺
     ActiveWindow.DocumentMap = True                             '显示导航窗格
 End Sub