TabStops オブジェクト (Publisher)

ユーザー設定を表す既定のタブ、段落または段落グループの TabStop オブジェクトのコレクションです。

注釈

TabStops コレクションを取得するには、ParagraphFormat.Tabs プロパティを使用します。 1 つの TabStop オブジェクトを返すには、タブ (インデックス) を使用します。ここで、index はタブ位置の位置 (ポイント単位) またはインデックス番号です。 タブ位置は、インデックス番号左からルーラーに沿って右にします。

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

次の使用例は、選択された段落に 2 つのタブ位置を追加します。 最初のタブ位置は、1 インチ (25.4 mm) の位置に設定する、点線のリーダー付きの左揃えのタブです。 2 番目のタブ位置は、2 インチ (50.8 mm) の位置に設定する、中央揃えのタブです。

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

次の使用例は、選択範囲の 2 番目のタブを右揃えのタブ位置に変更します。

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

メソッド

• Add
• ClearAll
• アイテム

プロパティ

• Application
• Count
• Parent

関連項目

• Publisher オブジェクト モデル リファレンス

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。