Wie wandelt man gerade Anführungszeichen in Word in typografisch korrekte, geschweifte Anführungszeichen um?

Normalerweise wandelt Microsoft Word beim Tippen automatisch gerade Anführungszeichen in geschweifte („intelligente“ oder typografische) Anführungszeichen um. Ist diese Funktion jedoch deaktiviert, erscheinen sowohl einfache als auch doppelte Anführungszeichen im Dokument möglicherweise gerade. Im Folgenden erfahren Sie, wie Sie gerade Anführungszeichen in geschweifte – und umgekehrt – in Word ganz einfach umwandeln können.

Gerade Anführungszeichen mit Suchen und Ersetzen in geschweifte Anführungszeichen ändern

Gerade Anführungszeichen mit VBA in geschweifte Anführungszeichen ändern

---

Gerade Anführungszeichen mit Suchen und Ersetzen in geschweifte Anführungszeichen ändern

Bevor Sie Suchen und Ersetzen anwenden, wechseln Sie zu den AutoKorrektur-Optionen, um das Kontrollkästchen „Gerade Anführungszeichen“ durch „intelligente Anführungszeichen“ ersetzen abzuwählen.

Schritt 1. Klicken Sie auf Datei > Optionen > Überprüfung > AutoKorrektur-Optionen > AutoFormat während der Eingabe und aktivieren Sie das Kontrollkästchen „Gerade Anführungszeichen“ durch „intelligente Anführungszeichen“ ersetzen. Siehe Screenshot

Schritt 2. Klicken Sie auf Start > Ersetzen in der Gruppe Bearbeiten, oder drücken Sie Strg + H, um das Dialogfeld Suchen und Ersetzen zu öffnen. Geben Sie dann ‘ oder ‘’ in das Feld Suchen nach und ‘ oder ’’ in das Feld Ersetzen durch ein. Siehe Screenshot:

Schritt 3. Klicken Sie auf Alle ersetzen.

Hinweis: Wenn Sie alle geschweiften Anführungszeichen durch gerade ersetzen möchten, deaktivieren Sie bitte das Kontrollkästchen „Gerade Anführungszeichen“ durch „intelligente Anführungszeichen“ ersetzen.

---

Gerade Anführungszeichen mit VBA in geschweifte Anführungszeichen ändern

Um alle geraden Anführungszeichen mithilfe von VBA in Word 2010 durch geschweifte Anführungszeichen zu ersetzen, klicken Sie zunächst auf Datei > Optionen > Überprüfung und anschließend auf AutoKorrektur-Optionen. Aktivieren Sie dann das Kontrollkästchen „Gerade Anführungszeichen“ durch „intelligente Anführungszeichen“ ersetzenwie folgt. ()Hinweis: Wenn Sie alle geschweiften Anführungszeichen durch gerade ersetzen möchten, deaktivieren Sie bitte das Kontrollkästchen „Gerade Anführungszeichen“ durch „intelligente Anführungszeichen“ ersetzen.)

Schritt 1: Drücken Sie „Alt+F11“, um das Fenster Microsoft Visual Basic for Applications zu öffnen;

Schritt 2: Klicken Sie im Menü Einfügenauf Modul, kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Modul-Fenster ein;

Schritt 3: Klicken Sie anschließend auf die Schaltfläche Ausführen, um das VBA-Skript auszuführen.

Der folgende VBA-Code wandelt gerade Anführungszeichen in geschweifte Anführungszeichen um:

Sub ChangeDoubleStraightQuotes()
'Update 20131107
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = """"
.Replacement.Text = """"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord =False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Der folgende VBA-Code wandelt geschweifte Anführungszeichen in gerade Anführungszeichen um:

Sub ReplaceSmartQuotes()
Dim vFindText As Variant
Dim vReplText As Variant
Dim i As Long
vFindText = Array("[^0145^0146]", "[^0147^0148]")
vReplText = Array("^039", "^034")
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.MatchWholeWord = True
.MatchWildcards = True
For i = LBound(vFindText) To UBound(vFindText)
.Text = vFindText(i)
.Replacement.Text = vReplText(i)
.Execute Replace:=wdReplaceAll
Next i
End With
End Sub

---