Automatisches Formatieren von Text in Anführungszeichen (Microsoft Word)
Sandy fragte, wie man den gesamten Text zwischen Anführungszeichen findet und fett formatiert. Die Lösung muss in der Lage sein, mehrere Wörter zwischen den Anführungszeichen zu verarbeiten – ganze Sätze, die fett gedruckt werden müssen. Dies ist eine interessante Frage, und es gibt verschiedene Möglichkeiten, wie sie angegangen werden kann.
Ein Ansatz besteht darin, die leistungsstarke Funktion zum Suchen und Ersetzen von Word zu verwenden, um genau das zu tun, was Sie benötigen. Befolgen Sie diese Schritte:
-
Wählen Sie im Menü Bearbeiten die Option Ersetzen. Word zeigt die Registerkarte Ersetzen des Dialogfelds Suchen und Ersetzen an. (Siehe Abbildung 1.)
-
Geben Sie im Feld Suchen nach Folgendes ein:
-
Dies muss unverändert ohne Leerzeichen eingegeben werden. Das Zeichen nach dem ersten vertikalen Balken ist ein öffnendes intelligentes Zitat, und das Zeichen nach dem zweiten vertikalen Balken ist ein schließendes intelligentes Zitat. Die intelligenten Anführungszeichen werden in das Dialogfeld eingegeben, indem Sie die Alt-Taste gedrückt halten und 0147 auf der Tastatur für die erste und dann 0148 für die zweite eingeben.
-
Verschieben Sie die Einfügemarke in das Feld Ersetzen durch.
-
Klicken Sie auf Format und dann auf Schriftart. Word zeigt das Dialogfeld Schriftart ersetzen an.
(Möglicherweise müssen Sie auf die Schaltfläche Mehr klicken, bevor Sie die Schaltfläche Format sehen können.)
-
Klicken Sie in der Liste Schriftstil auf die Option Fett.
-
Klicken Sie auf OK.
-
Stellen Sie sicher, dass das Kontrollkästchen Platzhalter verwenden aktiviert ist.
-
Klicken Sie auf Alle ersetzen.
Beachten Sie, dass Word nach Abschluss dieser Suche und Ersetzung nicht nur den Text in den Anführungszeichen, sondern auch die Anführungszeichen selbst fett gedruckt hat.
Wenn Sie die Anführungszeichen wieder normal ändern möchten, können Sie eine weitere Platzhaltersuche durchführen, diesmal einfach nach [„|“ | „] suchen (Schritt 2, wobei die letzten beiden Anführungszeichen intelligente Anführungszeichen öffnen und schließen) und durch ersetzen Nicht fett formatiert (Schritt 5).
Es ist interessant festzustellen, dass Sie nach [„|“] [„|“] und nicht nur nach „“ suchen müssen. Der Grund dafür ist Ganz einfach: Wenn Sie Ihre Dokumente (die Sie formatieren) von jemand anderem erhalten, wissen Sie nicht sofort, ob er intelligente Anführungszeichen, reguläre Anführungszeichen oder eine Kombination aus beiden verwendet hat. Verwenden Sie dazu die Klammern um das Bei zwei Arten von Anführungszeichen auf beiden Seiten eines vertikalen Balkens weisen Sie Word an, mit beiden Arten von öffnenden oder schließenden Anführungszeichen übereinzustimmen. Wenn Sie Platzhalter verwenden ausgewählt haben, unterscheidet Word zwischen regulären und intelligenten Anführungszeichen.
(Dies ist nicht der Fall Unterscheiden Sie nicht, ob Sie Suchen und Ersetzen ohne aktivierte Platzhalter verwenden.)
Wenn Sie dies recht tun müssen Wenn Sie die Informationen zwischen Anführungszeichen auf diese Weise formatieren möchten, erstellen Sie am besten ein Makro, das Sie dann zu einer Menüauswahl oder einer Symbolleistenschaltfläche hinzufügen können. Am einfachsten ist es vielleicht, einfach die Makroaufzeichnung zu verwenden, um die obigen Schritte aufzuzeichnen. Wenn Sie möchten, können Sie das folgende VBA-Makro verwenden, um den Trick auszuführen:
Sub BoldBetweenQuotes() ' base for a quotes finding macro Dim blnSearchAgain As Boolean ' move to start of doc Selection.HomeKey Unit:=wdStory ' start of loop Do ' set up find of first of quote pair With Selection.Find .ClearFormatting .Text = Chr(34) .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Execute End With If Selection.Find.Found Then Selection.MoveRight Unit:=wdCharacter, Count:=1 ' switch on selection extend mode Selection.Extend ' find second quote of this pair Selection.Find.Execute If Selection.Find.Found Then Selection.MoveLeft Unit:=wdCharacter, Count:=1 ' make it bold Selection.Font.Bold = True Selection.Collapse Direction:=wdCollapseEnd Selection.MoveRight Unit:=wdCharacter, Count:=1 blnSearchAgain = True Else blnSearchAgain = False End If Else blnSearchAgain = False End If Loop While blnSearchAgain End Sub
_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 (1500) 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: