Anführungszeichen (typographisch und gerade)

Wem ist das nicht schon passiert: Die Optionen in Word sind noch nicht umgestellt, man hat viele Seiten geschrieben und stellt fest, daß die Anführungszeichen typographisch („Anführungszeichen“) statt gerade ("Anführungszeichen") sind. Was nun?

Also erst einmal schnell die Optionen entsprechend umgestellt. Das ist zwar gut - aber es wird nur für die weiteren Eingaben eingestellt. Was bereits geschrieben wurde bleibt so wie es ist.

Da hilft der folgende Code weiter. Wechseln Sie dazu in den VBA-Editor und legen ein Modul an. In dieses Modul kopieren Sie folgenden Code:

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022

Sub Anfuehrungszeichen()

' Anfuehrungszeichen werden für das gesamte Dokument umgestellt

    'zunächst die Optionen umstellen, falls noch nicht passiert!
    With Options
        .AutoFormatAsYouTypeApplyTables = True
    End With

     'jetzt einfach nur die Anführungszeichen durhc Anführungszeichen ersetzen
    With Selection.Find
        .Text = """"
        .Replacement.Text = """"
        .Forward = True
    End With

     'alles ausführen...
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Eigentlich ist es ein ganzer einfacher Trick. Zunächst wird im Code die notwendige Option umgestellt, hier auf gerade Anführungszeichen. Anschließend werden mit der Suchen & Ersetzen Funktion die Anführungszeichen durch neue Anführungszeichen ersetzt. Dadurch, dass nun im Dokument wieder neu geschrieben wird, werden die Anführungszeichen nach den eingestellten Optionen ersetzt.

zurück zur Übersicht Suchen - Ersetzen