Automatisches Festlegen der rechten Führungsregisterkarten (Microsoft Word)
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 (1875) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier: