Hoe verandert u rechte aanhalingstekens in sluitende aanhalingstekens in Word?

Normaal gesproken verandert Microsoft Word automatisch rechte aanhalingstekens in sluitende (slimme of typografische) aanhalingstekens terwijl u typt. Maar als deze functie is uitgeschakeld, kunnen zowel enkele als dubbele aanhalingstekens recht in uw document verschijnen. Ontdek hier handige tips om rechte aanhalingstekens om te zetten naar sluitende aanhalingstekens – en vice versa – in Word.

Wijzig rechte aanhalingstekens in sluitende aanhalingstekens met Zoeken en Vervangen

Wijzig rechte aanhalingstekens in sluitende aanhalingstekens met VBA

---

Wijzig rechte aanhalingstekens in sluitende aanhalingstekens met Zoeken en Vervangen

Voordat u Zoeken en Vervangen toepast, moet u naar AutoCorrectie-opties gaan om het selectievakje „Rechte aanhalingstekens” in „slimme aanhalingstekens” uit te schakelen.

Stap 1. Klik op Bestand > Opties > Taalcontrole > AutoCorrectie-opties > Automatisch opmaken tijdens typen en schakel het selectievakje „Rechte aanhalingstekens” in „slimme aanhalingstekens” in. Zie de schermafbeelding.

Stap 2. Klik op Start > Vervangen in de groep Bewerken of druk op Ctrl + H om het dialoogvenster Zoeken en Vervangen te openen. Typ ‘ of ‘’ in het vak Zoeken naar en typ ‘ of ’’ in het vak Vervangen door. Zie de schermafbeelding:

Stap 3. Klik op Alles vervangen.

Opmerking: als u alle sluitende aanhalingstekens wilt vervangen door rechte aanhalingstekens, schakelt u het selectievakje „Rechte aanhalingstekens” in „slimme aanhalingstekens” uit.

---

Wijzig rechte aanhalingstekens in sluitende aanhalingstekens met VBA

Om alle rechte aanhalingstekens in Word 2010 met VBA te vervangen door sluitende aanhalingstekens, klikt u eerst op Bestand > Opties > Taalcontrole en vervolgens op AutoCorrectie Opties. Schakel daarna het selectievakje „Rechte aanhalingstekens” in „slimme aanhalingstekens”in, zoals hieronder wordt weergegeven. ()Opmerking: als u alle sluitende aanhalingstekens wilt vervangen door rechte aanhalingstekens, schakelt u het selectievakje „Rechte aanhalingstekens” in „slimme aanhalingstekens” uit).

Stap 1: Druk op „Alt+F11” om het venster Microsoft Visual Basic for Applications te openen;

Stap 2: Klik op Moduleop het tabblad Invoegen, en kopieer en plak de volgende VBA-code in het Module-venster;

Stap 3: Klik daarna op de knop Uitvoeren om de VBA-code toe te passen.

De volgende VBA-code verandert rechte aanhalingstekens in sluitende 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-code verandert sluitende aanhalingstekens 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

---