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