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