如何用vba切换word文档的视图为大纲视图、Web版式视图等？

word文档可以有各种不同的视图，如下图所示：

word文档有

• 阅读视图
• 页面视图
• Web版式视图
• 大纲视图
• 草稿视图

等5个视图，不同的视图有不同的用处。

在vba中如果要切换word文档的视图，可以通过设置View对象的Type属性为各种具体的视图。

其中Type属性的值可以设置为如下

View对象可以通过Window对象或者Pane对象的View属性获得。

以下VBA代码举例演示了如何切换word文档的各种不同视图：

Sub QQ1722187970()
    Dim oWnd As Window
    Dim oPane As Pane
    Dim oView As View
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    With oDoc
'        MsgBox .Windows.Count
        Set oWnd = .Windows(1)
        With oWnd
'            MsgBox .Panes.Count
            Set oPane = .Panes(1)
                '阅读视图
               .View = wdReadingView
                 'Web版式视图
               .View = wdWebView
                 '草稿视图
               .View = wdNormalView
                 '大纲视图
               .View = wdOutlineView
'                 '大纲视图
               .View = wdMasterView
'                 '打印预览视图
               .View = wdPrintPreview
'                 '打印视图或者叫页面视图
               .View = wdPrintView
        End With
    End With
End Sub