Sub page() With Documents("yourDoc.doc").PageSetup .PaperSize = wdPaperLetter .Orientation = wdOrientPortrait .TopMargin = 1 .BottomMargin = 1 .LeftMargin = 1 .RightMargin = 1.5 .MirrorMargins = True End With End Sub