Hoe vervangt u onderstreepte tekst door cursief in Word?

In sommige situaties moet u mogelijk alle onderstreepte tekens vervangen door cursief of vice versa in Word. Hoe kunt u snel alle onderstreepte tekens vervangen door cursief in Word? U kunt dit op de volgende twee slimme manieren doen in Word.

Vervang alle onderstreepte tekens door cursief met Zoeken en Vervangen

Vervang alle onderstreepte tekens door cursief met VBA

---

Vervang alle onderstreepte tekens door cursief met Zoeken en Vervangen

Stap 1: Klik op Start>Vervangenof gebruik de sneltoetsen Ctrl + Hom het dialoogvenster Zoeken en Vervangen te openen;

Stap 2: Klik op Meer om de optie Zoeken weer te geven.

Stap 3: Plaats de cursor in het vak Zoeken naar, klik op Lettertype in het menu Opmaak, open de keuzelijst en selecteer de stijl Onderstreping en de kleur van de onderstreping.

Stap 4: Plaats de cursor in het vak Vervangen door, klik op Lettertype in het menu Opmaak, kies de keuzelijst en selecteer Cursief in de lijst Lettertype Stijl.

    

Stap 5: Klik op OK of op Alles vervangen.

Opmerking:

1. Klik op Geen opmaak om er zeker van te zijn dat er geen opmaakinformatie is ingevuld in het vak Zoeken naar en het vak Vervangen door voordat u begint.

2. Deze bewerking maakt alleen de onderstreepte tekst cursief, zonder de onderstreping te verwijderen.

---

Vervang alle onderstreepte tekens door cursief met VBA

U kunt ook VBA gebruiken om onderstreping te vervangen door cursief. Maar als u niet goed bent in macro’s, raad ik deze methode niet aan. Volg deze stappen:

Stap 1: Druk op Alt+F11om het VBA-venster in Word te openen;

Stap 2: Klik op Moduleonder het tabblad Invoegenen plak de VBA-code in het Module-venster;

De VBA-code om alle onderstreepte tekens in Word te vervangen door cursief:

Sub ReplaceUnderlineWithItalic()
'Update 20131107
Selection.Find.ClearFormatting
Selection.Find.Font.Underline = wdUnderlineSingle
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Italic = True
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Replacement.Font.Underline = wdUnderlineNone
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Stap 3: Klik op de knop Uitvoerenom de VBA-code uit te voeren (of druk op)F5).

Opmerking:

1. Deze code is alleen geschikt voor enkele onderstreping zonder kleur. U kunt „wdUnderlineSingle” in de code wijzigen om deze aan te passen aan een andere onderstreepte stijl, zoals „wdUnderlineDouble” of „wdUnderlineThick”.

2. Deze code maakt alleen de onderstreepte tekst cursief, maar verwijdert de onderstreping niet.

---