Ga naar hoofdinhoud

Hoe verander ik rechte aanhalingstekens in gekrulde aanhalingstekens in woorden?

Normaal gesproken wijzigt Microsoft Word automatisch rechte aanhalingstekens naar gekrulde (slimme ortypograaf) aanhalingstekens terwijl je typt. Maar als de functie is uitgeschakeld, kunnen zowel enkele als dubbele aanhalingstekens rechtstreeks in uw document verschijnen. Hier zijn tips voor het wijzigen van rechte aanhalingstekens in gekrulde aanhalingstekens en vice versa in Word.

Verander rechte aanhalingstekens in gekrulde aanhalingstekens met Zoeken en vervangen

Verander rechte aanhalingstekens in gekrulde aanhalingstekens met VBA

Aanbevolen productiviteitstools voor Word

Kutools for Word: AI integreren 🤖besparen meer dan 100 geavanceerde functies 50% van uw documentverwerkingstijd.Gratis download

Office Tab: introduceert de browserachtige tabbladen in Word (en andere Office-hulpmiddelen), waardoor de navigatie tussen meerdere documenten wordt vereenvoudigd.Gratis download


pijl blauw rechts bel Verander rechte aanhalingstekens in gekrulde aanhalingstekens met Zoeken en vervangen

Office-tabblad: Brengt interfaces met tabbladen naar Word, Excel, PowerPoint...
ot woord middelste advertentie 100
Verbeter nu uw workflow.      Lees meer       Gratis download

Voor het aanvragen Zoeken en vervangen, Je zou moeten gaan naar Opties voor automatisch corrigeren om het 'Rechte aanhalingstekens' met 'slimme aanhalingstekens' Selectievakje.

In Word2003, Opties voor automatisch corrigeren is onder de Gereedschap bar. En in Word 2007, solliciteren Opties voor automatisch corrigeren door te klikken  > Opties > proofing > Opties voor automatisch corrigeren. Hier nemen we bijvoorbeeld Word 2010/2013:

Stap 1. Klik  > Keuze > proofing > Opties voor automatisch corrigeren > AutoOpmaak terwijl u typtEn Select "Rechte aanhalingstekens" met "slimme aanhalingstekens" selectievakje. Zie screenshot:

Stap 2. Klik Home > vervangen in de Editing groep of druk op Ctrl + H weergeven Zoeken en vervangen dialoogvenster en voer in 'or '' in Zoeken naar box, en voer in ' or ''in Vervangen door doos. Zie screenshot:

Stap 3. Klik Alles vervangen.

Opmerking: Als u alle gekrulde aanhalingstekens wilt vervangen door rechte aanhalingstekens, wis dan 'Rechte aanhalingstekens' met 'slimme aanhalingstekens' selectievakje).


pijl blauw rechts bel Verander rechte aanhalingstekens in gekrulde aanhalingstekens met VBA

Om alle rechte aanhalingstekens met gekrulde aanhalingstekens in Word 2010 te vervangen door VBA te gebruiken, klikt u op Dien in> Keuze > proofing en klik op AutoCorrectie Opties in en selecteer het 'Rechte aanhalingstekens' met 'slimme aanhalingstekens' selectievakje als volgt eerst. (Note: als u alle gekrulde aanhalingstekens wilt vervangen door rechte aanhalingstekens, schakelt u het selectievakje "Rechte aanhalingstekens" met "slimme aanhalingstekens" uit).

Stap 1: Druk op "Alt-F11”Om het venster Microsoft Visual Basic for Application te openen;

Stap 2: klik op Module op de Invoegen tab, kopieer en plak de volgende VBA-code in het Module venster;

Stap 3: Klik vervolgens op lopen knop om de VBA toe te passen.

De volgende VBA is om rechte aanhalingstekens te veranderen in gekrulde aanhalingstekens:

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

 

De volgende VBA is om gekrulde aanhalingstekens te veranderen in rechte aanhalingstekens:

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-productiviteitstools

Kutools for Word - Verbeter uw woordervaring met Over 100 Opmerkelijke kenmerken!

🤖 Kutools AI-assistent: Transformeer uw schrijven met AI - Inhoud genereren  /  Herschrijf tekst  /  Documenten samenvatten  /  Informeer voor informatie gebaseerd op document, allemaal binnen Word

📘 Documentbeheersing: Pagina's splitsen  /  Voeg documenten samen  /  Selectie exporteren in verschillende formaten (PDF/TXT/DOC/HTML...)  /  Batchconversie naar PDF  /  Pagina's exporteren als afbeeldingen  /  Meerdere bestanden tegelijk afdrukken...

Inhoud bewerken: Batch zoeken en vervangen over meerdere bestanden  /  Formaat van alle afbeeldingen wijzigen  /  Tabelrijen en -kolommen transponeren  /  Converteer tabel naar tekst...

🧹 Moeiteloos schoon: Veeg weg Extra ruimtes  /  Sectie-onderbrekingen  /  Alle koppen  /  Tekstvakken  /  hyperlinks  / Ga voor meer verwijdergereedschappen naar onze Groep verwijderen...

Creatieve invoegingen: Invoegen Duizend scheidingstekens  /  Vink vakjes aan  /  Radio knoppen  /  QR Code  /  Barcode  /  Diagonale lijntabel  /  Vergelijking bijschrift  /  Bijschrift bij afbeelding  /  Tabel titel  /  Meerdere afbeeldingen  / Ontdek meer in de Groep invoegen...

???? Precisieselecties: Vaststellen specifieke pagina's  /  tafels  /  vormen  /  kop paragrafen  / Verbeter de navigatie met meer Selecteer functies...

Sterverbeteringen: Navigeer snel naar elke locatie  /  automatisch herhaalde tekst invoegen  /  naadloos schakelen tussen documentvensters  /  11 Conversiehulpmiddelen...

👉 Wil je deze functies proberen? Kutools voor Word biedt een Gratis proefperiode van 60-dag, zonder beperkingen! 🚀
 
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