Article ID: 183993
Article Last Modified on 11/23/2006
Sub SeeTwoPages()
With ActiveWindow.View
' Switch to page layout view.
.Type = wdPageView
With .Zoom
' Set view to two pages wide.
.PageColumns = 2
' Set view to one page high.
.PageRows = 1
End With
End With
End Sub
For additional information, please see the following article in the
Microsoft Knowledge Base:
181058 OFF98: How to Run Sample Code from Knowledge Base Articles
163435 VBA: Programming Resources for Visual Basic for Applications
Additional query words: wordcon vb vba vbe
Keywords: kbdtacode kbhowto kbmacroexample KB183993