Прочитать на английском

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


Объект TabStops (Word)

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

Замечания

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

ActiveDocument.Paragraphs(1).TabStops.ClearAll

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

Selection.Paragraphs.TabStops.Add Position:=InchesToPoints(2.5) 
For Each aTab In Selection.Paragraphs.TabStops 
 MsgBox "Position = " _ 
 & PointsToInches(aTab.Position) & " inches" 
Next aTab

Используйте метод Add для добавления табуляции. В следующем примере к выбранным абзацам добавляется две табуляции. Первая точка табуляции — это выровненная по левому краю вкладка с пунктирным лидером, расположенным на 1 дюйме (72 точки). Вторая вкладка находится по центру и располагается на 2 дюйма.

With Selection.Paragraphs.TabStops 
 .Add Position:=InchesToPoints(1), _ 
 Leader:=wdTabLeaderDots, Alignment:=wdAlignTabLeft 
 .Add Position:=InchesToPoints(2), Alignment:=wdAlignTabCenter 
End With

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

Selection.Paragraphs.TabStops(InchesToPoints(2)) _ 
 .Alignment = wdAlignTabRight

Используйте tabStops (Индекс), где Индекс — это расположение остановки табуляции (в точках) или номер индекса, чтобы вернуть один объект TabStop . Указатели табуляции индексируются слева направо вдоль линейки. В следующем примере первая настраиваемая остановка вкладки удаляется из первого абзаца активного документа.

ActiveDocument.Paragraphs(1).TabStops(1).Clear

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

Selection.Paragraphs.TabStops(InchesToPoints(2)) _ 
 .Alignment = wdAlignTabRight

При работе с коллекцией Paragraph (или диапазоном с несколькими абзацами) необходимо изменить каждый абзац в коллекции по отдельности, если значения табуляции не совпадают во всех абзацах. В следующем примере вкладка, расположенная на 1 дюйме, удаляется из каждого абзаца активного документа.

For Each para In ActiveDocument.Content.Paragraphs 
 para.TabStops(InchesToPoints(1)).Clear 
Next para

См. также

Справочник по объектной модели Word

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

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