TabStops 物件 (出版商)

代表自訂和預設段落或一組段落的定位點的 TabStop 物件的集合。

註解

使用 ParagraphFormat.Tabs 屬性來回傳 TabStops 集合。 使用索引) (Tabs，其中 index 是) 點中 tabStop (的位置或索引號，以回傳單一 TabStop 物件。 定位停駐點編製索引星期幾從左到右沿著尺規。

使用 Add 方法新增定位停駐點。

範例

下列範例會清除所有自訂定位停駐點從使用中出版物的第一個段落。

Sub ClearAllTabStops() 
 ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange _ 
 .ParagraphFormat.Tabs.ClearAll 
End Sub

下列範例會將選取段落 2.5 英吋處定位停駐點並顯示 TabStops 集合中每個項目的位置。

Sub Tabs() 
 Dim intTab As Integer 
 Selection.TextRange.ParagraphFormat.Tabs _ 
 .Add Position:=InchesToPoints(2.5), _ 
 Alignment:=pbTabAlignmentLeading, Leader:=pbTabLeaderNone 
 With Selection.TextRange.ParagraphFormat 
 For intTab = 1 To .Tabs.Count 
 MsgBox "Position = " & PointsToInches _ 
 (.Tabs(intTab).Position) & " inches" 
 intTab = intTab + 1 
 Next intTab 
 End With 
End Sub

下列範例會將兩個定位停駐點新增至選取的段落。 第一個定位停駐點是靠左對齊定位與位於 1 英吋 (72 點) 以點分隔的 tab 前置字元。 第二個定位停駐點置中並位於為 2 英吋。

Sub AddNewTabs() 
 With Selection.TextRange.ParagraphFormat.Tabs 
 .Add Position:=InchesToPoints(1), _ 
 Leader:=pbTabLeaderDot, Alignment:=pbTabAlignmentLeading 
 .Add Position:=InchesToPoints(2), _ 
 Leader:=pbTabLeaderNone, Alignment:=pbTabAlignmentCenter 
 End With 
End Sub

下列範例會移除使用中出版物的第一個段落中的第一個自訂定位停駐點。

Sub ClearTabStop() 
 ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange _ 
 .ParagraphFormat.Tabs(1).Clear 
End Sub

下列範例會將選取範圍中的第二個定位點改為靠右對齊的定位停駐點。

Sub ChangeTabStop() 
 Selection.TextRange.ParagraphFormat.Tabs(2) _ 
 .Alignment = pbTabAlignmentTrailing 
End Sub

方法

• Add
• ClearAll
• 項目

屬性

• Application
• 數目
• Parent

另請參閱

• 出版商物件模型參考

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。