word视图切换

    If ActiveWindow.View.SplitSpecial = wdPaneNone Then
        ActiveWindow.ActivePane.View.Type = wdNormalView
    Else
        ActiveWindow.View.Type = wdNormalView
    End If

wdNormalView '普通视图  1

wdWebView    'WEB视图  6

wdPrintView  '页面视图  3

手动切换在WORD菜单栏 -> 视图 

原文地址:https://www.cnblogs.com/abinxm/p/2284980.html