一步操作配置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          '页面100%显示
    ActiveWindow.ActivePane.View.ShowAll = True                 '显示/隐藏编辑标记
    ActiveWindow.ActivePane.DisplayRulers = True                '显示标尺
    ActiveWindow.DocumentMap = True                             '显示导航窗格
End Sub