Метод 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

См. также

Объект selection

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.