Article ID: 158470
Article Last Modified on 1/19/2007
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:
173707 OFF97: 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 kbprogramming KB158470