Print View, Whole Page, All documents

Thursday, August 18, 2011

From time to time I find myself reviewing or updating a set of a dozen or so documents.

I like to see them in a consistent manner.

Perhaps they are a set of flyers, and I want to make sure that the layout above-the-fold is identical.

This little macro loops through all open documents, moves the cursor to the top of the document, then chooses Print View (WYSIWYG, almost) and a whole-page on the screen.

Sub PrintViewAll()
    Dim doc As Document
    For Each doc In Application.Documents
        doc.Activate
        Selection.HomeKey Unit:=wdStory
        ActiveWindow.View.Type = wdPrintView
        ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitFullPage
        Application.WindowState = wdWindowStateMaximize\
    Next doc
End Sub

P.S. If you'd rather be left at the foot of the documents, to append new text, use:-

Selection.EndKey Unit:=wdStory

P.P.S. If you'd rather be left in Normal view, use:

ActiveWindow.View.Type = wdNormalView

Search