本示例显示活动文档的 SpaceBeforeAuto 属性设置的信息。

Select Case ActiveDocument.Paragraphs.SpaceBeforeAuto
    Case True
        x = "Spacing before paragraphs is handled " _
            & "automatically for all paragraphs."
    Case False
        x = "Spacing before paragraphs is handled " _
            & "manually for all paragraphs."
    Case wpsUndefined
        x = "Spacing before paragraphs is handled " _
            & "automatically for some paragraphs, " _
                & "manually for some paragraphs."
End Select