Klammern automatisch einfügen (Microsoft Word)
Viele verschiedene Dokumente haben viele unterschiedliche Anforderungen an ihre Konstruktion. Beispielsweise haben Sie möglicherweise ein Dokument, in dem bestimmte wiederkehrende Wörter in Klammern gesetzt werden müssen, damit sie hervorstechen. (Einige technische Handbücher verwenden diese Konvention, um Tastenanschläge festzulegen, z. B. die [Eingabetaste].)
Wenn Sie einen solchen Bedarf haben, kann es hilfreich sein, einfach Ihren Text einzugeben und dann zurück zu gehen und später die Klammern hinzuzufügen. Hier kann ein Makro nützlich sein, um das Hinzufügen für Sie zu erledigen. Sie können beispielsweise das Wort auswählen (doppelklicken) und dann ein Makro ausführen, das die Klammern hinzufügt. Das folgende Makro erledigt diese Aufgabe problemlos:
Sub AddBrackets() Dim iCount As Integer iCount = 1 While Right(Selection.Text, 1) = " " Or _ Right(Selection.Text, 1) = Chr(13) Selection.MoveLeft Unit:=wdCharacter, Count:=1, _ Extend:=wdExtend iCount = iCount + 1 Wend Selection.InsertAfter "]" Selection.InsertBefore "[" Selection.MoveRight Unit:=wdCharacter, Count:=iCount End Sub
Das Makro gleicht Leerzeichen oder Absatzmarkierungen am Ende Ihrer Auswahl aus. Wenn Sie mit dem Ausführen fertig sind, verbleibt die Einfügemarke am Ende der ursprünglichen Auswahl. Sie können Ihr Makro entweder einer Tastenkombination oder einem benutzerdefinierten Symbolleistenwerkzeug zuweisen.
_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 (1520) 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: