本示例将活动文档上边距转换为英寸,并在消息框中显示结果。

MsgBox PointsToInches(ActiveDocument.Sections(1) _
    .PageSetup.TopMargin)