Print View, Whole page, All documents

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