Метод Selection.SelectCurrentTabs (Word)
Расширяет выделение вперед до тех пор, пока не появится абзац с разными концами табуляции.
Синтаксис
выражение. SelectCurrentTabs
выражение (обязательно). Переменная, представляющая объект Selection .
Пример
В этом примере выбирается второй абзац в активном документе, а затем выделение расширяется, чтобы включить все остальные абзацы с одинаковыми табуляции.
Set myRange = ActiveDocument.Paragraphs(2).Range
myRange.Select
Selection.SelectCurrentTabs
В этом примере выбираются абзацы с одинаковыми табуляции и извлекаются позиции первой табуляции. В примере выделение перемещается в следующий диапазон абзацев с одинаковыми табуляции. Затем в этом примере параметр табуляции добавляется из первой группы абзацев в текущий выделенный фрагмент.
With Selection
.SelectCurrentTabs
pos = .Paragraphs.TabStops(1).Position
.Collapse Direction:=wdCollapseEnd
.SelectCurrentTabs
.Paragraphs.TabStops.Add Position:=pos
End With
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.