Метод 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 и обратная связь.