很多时候需要格式化时要求在右边距设置右边的制表符，并确保其上带有下划线或点首。如果要创建“手动”布局的表格，通常会这样做。但是，设置此类选项卡可能很麻烦，因为它涉及对话框或功能区的使用以及重复性操作。

如果您设置了很多这样的标签，您可能会对下面显示的RightTab VBA宏感兴趣。运行时，它将检查您选择的每个段落，清除其所有制表位，并在右边缘设置一个带下划线的右选项卡。

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_网站上的任何其他页面）上描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（11110）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。 Word的旧菜单界面在这里：

自动设置右首选项卡。