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