Метод Selection.SelectCurrentAlignment (Word)
Расширяет выделение вперед до тех пор, пока не будет обнаружен текст с другим выравниванием абзаца.
Синтаксис
выражение. SelectCurrentAlignment
выражение (обязательно). Переменная, представляющая объект Selection .
Замечания
Существует четыре типа выравнивания абзаца: левое, по центру, правое и оправданное.
Пример
В этом примере точка вставки размещается в начале первого абзаца после текущего абзаца, который не имеет такого же выравнивания, как текущий абзац. Если выравнивание совпадает с выделенным фрагментом в конец документа, пример перемещает выделение в конец документа и отображает сообщение.
Selection.SelectCurrentAlignment
Selection.Collapse Direction:=wdCollapseEnd
If Selection.End = ActiveDocument.Content.End - 1 Then
MsgBox "No change in alignment found."
End If
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.