Returns or sets a Variant that represents the width of the pages in a publication. Read/write.
expression.PageWidth
expression Required. An expression that returns one of the objects in the Applies To list.
This example specifies a width of eight inches for the pages in the active publication.
Sub SetLeftMargin() With ActiveDocument.PageSetup .PageHeight = InchesToPoints(5) .PageWidth = InchesToPoints(8) .MultiplePagesPerSheet = True .LeftMargin = InchesToPoints(0.25) End With End Sub