Normalerweise fügen Sie Ihrem Text während der Eingabe Anführungszeichen hinzu. Es kann jedoch vorkommen, dass Sie die Anführungszeichen zu einem späteren Zeitpunkt hinzufügen möchten.

Während Sie Ihr Dokument bearbeiten, können Sie beispielsweise Text auswählen und dann Anführungszeichen um den ausgewählten Text hinzufügen. Sie können diese Aufgabe mit dem folgenden Makro ausführen:

Sub AddQuotes()

Dim sBegQ As String     Dim sEndQ As String

If Options.AutoFormatAsYouTypeReplaceQuotes Then         sBegQ = Chr(147)

sEndQ = Chr(148)

Else         sBegQ = Chr(34)

sEndQ = Chr(34)

End If

Selection.InsertBefore sBegQ     Selection.InsertAfter sEndQ End Sub

Das Makro bestimmt den richtigen Typ der zu verwendenden Anführungszeichen, basierend darauf, ob Sie die SmartQuotes von Word aktiviert haben oder nicht. Die richtigen Anführungszeichen werden dann vor und nach der Auswahl platziert.

_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.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

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

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (9) gilt für Microsoft Word 97, 2000, 2002 und 2003.

Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007 und höher) finden Sie hier:

Zitate hinzufügen.