Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Расширяет выделенный фрагмент до тех пор, пока не будет найден текст с другим выравниванием абзаца.
Синтаксис
выражение. SelectCurrentAlignment
выражение (обязательно). Переменная, представляющая объект выделения .
Примечания
Существует четыре типа выравнивания абзацев: по левому краю, по центру, по правому краю и по ширине.
Пример
В этом примере точка вставки размещается в начале первого абзаца после текущего, который не выравнивается так же, как текущий абзац. Если выделенный фрагмент выравнивается от выделенного фрагмента до конца документа, в примере выделенный фрагмент перемещается в конец документа и выводится сообщение.
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 и обратная связь.