(This is probably a better way to do the job, but the original question is only avoided - not answered - and I may need to do something similar to the original prob at another time)
[vba]
Sub Document_Open()
Dim Answer As VbMsgBoxResult
Answer = MsgBox("Your preferred page setup?", vbYesNo)
If Answer = vbNo Then End
Application.ScreenUpdating = False
CustomizationContext = NormalTemplate
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = InchesToPoints(0.6)
.BottomMargin = InchesToPoints(0.97)
.LeftMargin = InchesToPoints(0.6)
.RightMargin = InchesToPoints(0.6)
.Gutter = InchesToPoints(0)
.HeaderDistance = InchesToPoints(0.5)
.FooterDistance = InchesToPoints(0.5)
.PageWidth = InchesToPoints(8.27)
.PageHeight = InchesToPoints(11.69)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.GutterPos = wdGutterPosLeft
End With
Application.ScreenUpdating = True
ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit
Selection.Font.Name = "Verdana"
End Sub
[/vba]