Es gibt viele Fälle, in denen Ihre Formatierung erforderlich ist, um eine rechte Registerkarte am rechten Rand festzulegen und sicherzustellen, dass sie entweder einen Unterstrich oder einen Punkt enthält. Dies geschieht häufig, wenn Sie „manuell“ angelegte Formulare erstellen. Das Festlegen solcher Registerkarten kann jedoch problematisch sein, da die Verwendung der Dialogfelder oder des Menübands und sich wiederholende Aktionen erforderlich sind.

Wenn Sie einige solcher Registerkarten festlegen, könnte Sie das unten gezeigte RightTab VBA-Makro interessieren. Beim Ausführen wird jeder ausgewählte Absatz untersucht, alle Tabulatoren gelöscht und eine einzelne rechte Tabulatortaste am rechten Rand mit einem Unterstrich gesetzt.

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

Das Makro funktioniert auch dann, wenn die ausgewählten Absätze unterschiedliche rechte Ränder haben. Es berücksichtigt auch Ihre aktuelle Seiteneinrichtung.

Wenn das Makro nicht alle Tabulatoren entfernen soll, die bereits in den ausgewählten Absätzen festgelegt wurden, entfernen Sie die Zeile, die die ClearAll-Methode verwendet.

Wenn Sie anstelle von Unterstrichen Punktführer auf der Registerkarte verwenden möchten, ändern Sie den Konstantennamen wdTabLeaderLines in wdTabLeaderDots.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (11110) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365. Eine Version dieses Tipps finden Sie für ältere Menüoberfläche von Word hier: