本示例返回 Document1 的页面宽度。 可用 PointsToInches 方法将磅值转换为英寸。

Set wps1set = Documents("sampledocument1").PageSetup
Msgbox "The page's width is " _
    & PointsToInches(wps1set.PageWidth) & " inches."