If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdNormalView
Else
ActiveWindow.View.Type = wdNormalView
End If
ActiveWindow.ActivePane.View.Type = wdNormalView
Else
ActiveWindow.View.Type = wdNormalView
End If
wdNormalView '普通视图 1
wdWebView 'WEB视图 6
wdPrintView '页面视图 3
手动切换在WORD菜单栏 -> 视图