bottom
Great WordTips!
         
Your e-mail address is safe!
Close Note

Tips.Net > WordTips Home > Formatting > Tabs and Tab Stops > Automatically Setting Right Leader Tabs

Automatically Setting Right Leader Tabs

Summary: If you have a constant need to define tabs at the edge of the right margin, you’ll love the macro-based technique provided in this tip. You can, just by running the macro, set the requisite tab and include either dot or underscore leaders for the tab. (This tip works with Microsoft Word 97, Word 2000, Word 2002, Word 2003, and Word 2007.)

There are many times when your formatting needs call for setting a right tab at the right margin, and making sure it has either an underscore or dot leader on it. This is done quite often if you are creating "manually" laid-out forms. Setting such tabs can be a hassle, however, since it involves the use of the dialog boxes or the ruler and repetitive actions.

If you set quite a few such tabs, you may be interested in the RightTab VBA macro shown below. When run, it examines each paragraph you have selected, clears all their tab stops, and sets a single right tab at the right margin with an underscore leader.

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

The macro will work even if the selected paragraphs have differing right margins from each other. It also takes into account your current page setup.

If you don't want the macro to remove all the tab stops already set in the selected paragraphs, remove the line that uses the ClearAll method. If you want to use dot leaders on the tab instead of underscores, then change the wdTabLeaderLines constant name to wdTabLeaderDots.

Tip #1875 applies to Microsoft Word versions: 97 | 2000 | 2002 | 2003 | 2007


Create and Merge! Using Word's mail merge tool you can quickly and easily combine data from a variety of data sources to create great individualized documents that incorporate your data in ways that you control. WordTips: Mail Merge Magic is an invaluable source for learning how to harness the full power of Word's mail merging capabilities.
 
Check out WordTips: Mail Merge Magic today!

Helpful Links

Ask a Word Question
Make a Comment

Tips.Net Home
Tips.Net Store

WordTips FAQ
WordTips Premium

Learn Access Now

Beauty Tips
Car Tips
Cleaning Tips
College Tips
Cooking Tips
Excel2007 Tips
ExcelTips
Family Tips
Gardening Tips
Health Tips
Home Tips
Money Tips
Organizing Tips
Pest Tips
Pet Tips
Word2007 Tips
WordTips

Advertise on the
WordTips Site

 

Great Info!

Get tips like this every week in WordTips, a free productivity newsletter. Enter your e-mail address and click "Subscribe."
     
(Your e-mail address will never be shared with anyone, ever.)