Word VBA教程:SelectCurrentAlignment方法

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

expression.SelectCurrentAlignment

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

说明

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

VBA示例

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


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号