Word) (TabStops 物件
代表自訂和預設段落或一組段落的定位點的 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 點) 以點分隔的 tab 前置字元。 第二個定位停駐點置中並位於為 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 (Index),其中 Index 是位置 (以點為單位) 的定位停駐點或索引編號,可以傳回單一 TabStop 物件。 定位停駐點編製索引星期幾從左到右沿著尺規。 下列範例會移除使用中文件內的第一個段落的第一個自訂定位停駐點。
ActiveDocument.Paragraphs(1).TabStops(1).Clear
以下範例會在距離選取段落 2 英吋的位置,增加一個靠右對齊定位點。
Selection.Paragraphs.TabStops(InchesToPoints(2)) _
.Alignment = wdAlignTabRight
使用時 Paragraphs 集合 (或數個段落的範圍),您必須修改集合中的每個段落個別如果不相同內所有段落的定位停駐點。 下列範例會移除位於使用中文件內每個段落的 1 英吋] 索引標籤。
For Each para In ActiveDocument.Content.Paragraphs
para.TabStops(InchesToPoints(1)).Clear
Next para
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。