Поделиться через

Метод Selection.SelectCurrentIndent (Word)

  • Статья

Расширяет выделение вперед до тех пор, пока не появится текст с другими отступами левого или правого абзаца.

Синтаксис

выражение. SelectCurrentIndent

выражение (обязательно). Переменная, представляющая объект Selection .

Пример

В этом примере выполняется переход к началу первого абзаца в документе с отступами, отличающимися от отступов первого абзаца в активном документе.

With Selection 
 .HomeKey Unit:=wdStory, Extend:=wdMove 
 .SelectCurrentIndent 
 .Collapse Direction:=wdCollapseEnd 
End With

В этом примере определяется, имеют ли все абзацы в активном документе одинаковые отступы слева и справа, а затем отображается окно сообщения с указанием результата.

With Selection 
 .HomeKey Unit:=wdStory, Extend:=wdMove 
 .SelectCurrentIndent 
 .Collapse Direction:=wdCollapseEnd 
End With 
If Selection.End = ActiveDocument.Content.End - 1 Then 
 MsgBox "All paragraphs share the same left " _ 
 & "and right indents." 
Else 
 MsgBox "Not all paragraphs share the same left " _ 
 & "and right indents." 
End If

См. также

Объект selection

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

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