Direkt zum Inhalt

Wie ändere ich gerade Anführungszeichen in geschweifte Anführungszeichen in Wort?

Normalerweise ändert Microsoft Word automatisch gerade Anführungszeichen zu lockigen (intelligenten ortypografischen) Zitaten während Sie tippen. Wenn die Funktion jedoch deaktiviert ist, werden in Ihrem Dokument möglicherweise sowohl einfache als auch doppelte Anführungszeichen angezeigt. Hier finden Sie Tipps, wie Sie in Word gerade Anführungszeichen in geschweifte Anführungszeichen und umgekehrt ändern können.

Ändern Sie mit Suchen und Ersetzen gerade Anführungszeichen in geschweifte Anführungszeichen

Ändern Sie mit VBA gerade Anführungszeichen in geschweifte Anführungszeichen

Empfohlene Produktivitätswerkzeuge für Word

Kutools for Word: KI integrieren 🤖Über 100 erweiterte Funktionen sparen 50 % Ihrer Dokumentenbearbeitungszeit.Free Download

Office Tab: Führt die browserähnlichen Registerkarten in Word (und andere Office-Tools) ein und vereinfacht so die Navigation in mehreren Dokumenten.Free Download


Pfeil blau rechte Blase Ändern Sie mit Suchen und Ersetzen gerade Anführungszeichen in geschweifte Anführungszeichen

Office Tab: Bringt Registerkarten-Oberflächen zu Word, Excel, PowerPoint ...
ot Wort Mitte Anzeige 100
Verbessern Sie jetzt Ihren Workflow.      Weiterlesen       Free Download

Vor der Bewerbung Suchen und Ersetzen, du solltest zu ... gehen Optionen zur automatischen Korrektur um das zu deaktivieren "Straight Quotes" mit "Smart Quotes" Kontrollkästchen.

In Word 2003 Optionen zur automatischen Korrektur ist unter dem Werkzeug Bar. Und in Word 2007 anwenden Optionen zur automatischen Korrektur Beim Klicken  > Optionen > Proofing > Optionen zur automatischen Korrektur. Hier nehmen wir zum Beispiel Word 2010/2013:

Schritt 1. Klicken  > Option > Proofing > Optionen zur automatischen Korrektur > AutoFormat während der Eingabe, Und wählen Sie "Gerade Anführungszeichen" mit "intelligenten Anführungszeichen" Kontrollkästchen. Siehe Screenshot:

Schritt 2. Klicken Startseite > Ersetzen der Bearbeitung Gruppe oder drücken Strg + H anzeigen Suchen und Ersetzen Dialog und geben Sie ein 'or '' in Finden Sie, was Feld und geben Sie ein ' or ''in Ersetzen durch Box. Siehe Screenshot:

Schritt 3. Klicken Alle ersetzen.

Hinweis: Wenn Sie alle geschweiften Anführungszeichen durch gerade Anführungszeichen ersetzen möchten, löschen Sie diese bitte "Straight Quotes" mit "Smart Quotes" Kontrollkästchen).


Pfeil blau rechte Blase Ändern Sie mit VBA gerade Anführungszeichen in geschweifte Anführungszeichen

Klicken Sie auf, um alle geraden Anführungszeichen in Word 2010 durch geschweifte Anführungszeichen in VBA zu ersetzen Reichen Sie das> Option > Proofing und klicken auf AutoCorrect Optionen und wählen Sie die "Straight Quotes" mit "Smart Quotes" Kontrollkästchen zuerst wie folgt. (Note: Wenn Sie alle geschweiften Anführungszeichen durch gerade Anführungszeichen ersetzen möchten, deaktivieren Sie das Kontrollkästchen "Gerade Anführungszeichen" durch "Intelligente Anführungszeichen".

Schritt 1: Drücken Sie "Alt-F11”, Um das Microsoft Visual Basic für Anwendungsfenster zu öffnen;

Schritt 2: Klicken Sie auf Modul auf die Insert Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in die ein Modul Fenster;

Schritt 3: Klicken Sie dann auf Führen Sie Schaltfläche zum Anwenden des VBA.

Mit dem folgenden VBA werden gerade Anführungszeichen in geschweifte Anführungszeichen geändert:

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

 

Mit dem folgenden VBA werden geschweifte Anführungszeichen in gerade Anführungszeichen geändert:

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

Beste Office-Produktivitätstools

Kutools for Word - Steigern Sie Ihr Word-Erlebnis mit Over 100 Bemerkenswerte Funktionen!

🤖 Kutools KI-Assistent: Verwandeln Sie Ihr Schreiben mit KI – Inhalte generieren  /  Text umschreiben  /  Dokumente zusammenfassen  /  Erkundigen Sie sich nach Informationen basierend auf Dokument, alles in Word

📘 Dokumentenbeherrschung: Seiten teilen  /  Dokumente zusammenführen  /  Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...)  /  Stapelkonvertierung in PDF  /  Seiten als Bilder exportieren  /  Drucken Sie mehrere Dateien gleichzeitig...

Inhaltsbearbeitung: Batch suchen und ersetzen über mehrere Dateien hinweg  /  Größe aller Bilder ändern  /  Vertauschen Sie Tabellenzeilen und -spalten  /  Tabelle in Text konvertieren...

🧹 Mühelose Reinigung: Wegfegen Zusätzliche Räume  /  Abschnittswechsel  /  Alle Header  /  Textfelder  /  Hyperlinks  / Weitere Entfernungswerkzeuge finden Sie auf unserer Gruppe entfernen...

Kreative Einsätze: Einfügen Tausend Trennzeichen  /  Kontrollkästchen  /  Radio Knöpfe  /  QR Code  /  Strichcode  /  Diagonale Linientabelle  /  Gleichungsbeschriftung  /  Bildunterschrift  /  Tabellenüberschrift  /  Mehrere Bilder  / Entdecken Sie mehr im Gruppe einfügen...

🔍 Präzise Auswahl: Punktgenau bestimmte Seiten  /  Tabellen  /  Formen  /  Überschriften von Absätzen  / Verbessern Sie die Navigation mit mehr Wählen Sie Funktionen aus...

Star-Verbesserungen: Navigieren Sie schnell zu jedem Ort  /  Sich wiederholenden Text automatisch einfügen  /  Wechseln Sie nahtlos zwischen Dokumentfenstern  /  11 Konvertierungstools...

👉 Möchten Sie diese Funktionen ausprobieren? Kutools für Word bietet a 60-Tage kostenlose Testversion, ohne Einschränkungen! 🚀
 
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The VBA code method for changing "straight" to "smart" quotes worked perfectly! Thank you!
This comment was minimized by the moderator on the site
My problem is that I have work normally in German but have an English document, which I marked as "English". Then I did find&replace and it converted them to lower " and upper " as it would happen in German. I looked at all the settings but I couldn't find it. I changed the dictionary language and everything else I could find to English... any idea?
This comment was minimized by the moderator on the site
This is my problem too. Did you ever find an answer?
This comment was minimized by the moderator on the site
Your explanation for replacing in Find/Replace from instruction #2 on is completely incomprehensible.
This comment was minimized by the moderator on the site
I think I found the explanation on another page. If you simply do a replace all and ask it to replace either single quotes or double quotes with the exact same symbol, it will go through and apply your autocorrect rules, including to replace straight quotes with smart quotes. So it should update those all to smart quotes as it goes.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations