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
Ändern Sie mit Suchen und Ersetzen gerade Anführungszeichen in geschweifte Anführungszeichen
Office Tab: Bringt Registerkarten-Oberflächen zu Word, Excel, PowerPoint ... |
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).
Ä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...