書式設定で、右マージンに右タブを設定し、アンダースコアまたはドットリーダーが付いていることを確認する必要がある場合がよくあります。これは、「手動で」レイアウトされたフォームを作成する場合に頻繁に行われます。ただし、このようなタブの設定は、ダイアログボックスまたはリボンの使用と繰り返しのアクションを伴うため、面倒な場合があります。

そのようなタブをかなり多く設定する場合は、以下に示すRightTabVBAマクロに興味があるかもしれません。実行すると、選択した各段落が調べられ、すべてのタブストップがクリアされ、右マージンにアンダースコアリーダーが付いた単一の右タブが設定されます。

Sub RightTab()

Dim MarPos As Integer, NewPos As Integer     Dim ThisPar As Paragraph

MarPos = Selection.PageSetup.PageWidth - _       Selection.PageSetup.LeftMargin - _       Selection.PageSetup.RightMargin - _       Selection.PageSetup.Gutter

Set myrange = Selection.Range     For Each ThisPar In myrange.Paragraphs         NewPos = MarPos - ThisPar.RightIndent         ThisPar.TabStops.ClearAll         ThisPar.TabStops.Add Position:=NewPos, _           Alignment:=wdAlignTabRight, _           Leader:=wdTabLeaderLines     Next ThisPar End Sub

選択した段落の右マージンが異なっていても、マクロは機能します。また、現在のページ設定も考慮されます。

選択した段落にすでに設定されているすべてのタブストップをマクロで削除したくない場合は、ClearAllメソッドを使用する行を削除します。

アンダースコアの代わりにタブでドットリーダーを使用する場合は、wdTabLeaderLines定数名をwdTabLeaderDotsに変更します。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（11110）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス：

link右リーダータブの自動設定。