SelectCurrentAlignment 方法

       

向前扩展选定部分,直到遇到另一种段落对齐方式为止。

expression.SelectCurrentAlignment

expression   必需。该表达式返回一个 Selection 对象。

说明

段落的对齐方式有四种:左对齐、居中、右对齐和两端对齐。

示例

本示例将插入点置于后面第一个与当前段落的对齐方式有区别的段落开头。如果全文的对齐方式全部相同,则本示例将所选内容移至文档末尾,并显示一条消息。

Selection.SelectCurrentAlignment
Selection.Collapse Direction:=wdCollapseEnd
If Selection.End = ActiveDocument.Content.End - 1 Then
    MsgBox "No change in alignment found."
End If