Метод Selection.SelectCurrentIndent (Word)

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

Синтаксис

выражение. SelectCurrentIndent

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

Пример

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

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

См. также

Объект выделения

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

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