Hoe kunt u de onderstreping vervangen door cursief in Word?

In sommige gevallen moet u mogelijk alle onderstreepte tekens vervangen door cursief of andersom in Word. Hoe kunt u snel alle onderstreepte tekens vervangen door cursief in Word? U kunt dit doen volgens de volgende twee handige manieren in Word.

Vervang alle onderstreepte tekens met cursief met Zoeken en Vervangen

Vervang alle onderstreepte tekens met cursief met VBA

Vervang alle onderstreepte tekens met cursief met Zoeken en Vervangen

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

Stap 2: Klik op de knop Meer om de zoekopties weer te geven.

Stap 3: Plaats de cursor in Zoeken naar, klik op Lettertype in de vervolgkeuzelijst Formaat om de Onderstreepstijl en Onderstreeptkleur te selecteren.

Stap 4: Plaats de cursor in het vak Vervangen door, klik op Lettertype in de vervolgkeuzelijst Formaat om Cursief te selecteren in de lijst Lettertype Stijl.

Stap 5: Klik op OK > Alles vervangen.

Opmerking:

1. Klik op Geen opmaak om ervoor te zorgen dat er geen opmaakinformatie is opgegeven in het vak Zoeken naar en Vervangen door voordat u begint.

2. Deze verwerking maakt alleen de tekst met onderstreping cursief, maar verwijdert de onderstreping niet.

Office Tab: Voegt tabbladinterfaces toe aan Word, Excel, PowerPoint...

Verbeter uw workflow nu.Meer informatie over Office Tab Gratis downloaden

Vervang alle onderstreepte tekens met 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. Doe het volgende:

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

Stap 2: Klik op Module in het tabblad Invoegen en voeg de VBA-code in het Module-venster in;

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

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 Uitvoeren  knop om de VBA-code toe te passen (of druk op F5).

Opmerking:

1. Deze code is alleen geschikt voor enkelvoudige onderstreping zonder kleur. U kunt “wdUnderlineSingle” in de code wijzigen om geschikt te maken voor andere onderstreepstijlen zoals “wdUnderlineDouble” of “wdUnderlineThick”.

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

Beste productiviteitstools voor kantoor

Kutools voor Word – Til uw Word-ervaring naar een hoger niveau met meer dan 100 indrukwekkende functies!

🤖 Kutools AI-functies: AI Assistent / Realtime Assistent / Super Pools (Formaat behouden) / Super Vertalen (Formaat behouden) / AI Redactie / AI Proeflezen...

📘 Documentbeheersing: Pagina’s splitsen / Documenten samenvoegen / Selectie exporteren in diverse formaten (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...

✏ Inhoud bewerken: Batch Zoeken en Vervangen in meerdere bestanden / Alle afbeeldingen formaat wijzigen / Rij- en kolomindeling van tabellen transponeren / Tabel naar tekst converteren...

🧹 Moeiteloos opschonen: Verwijder extra spaties / sectie-eindes / tekstvakken / hyperlinks / Voor meer verwijderopties, ga naar de groep Verwijderen...

➕ Creatieve invoegingen: Voeg duizendtallen-scheidingstekens toe / selectievakjes / keuzerondjes / QR-code / barcode / meerdere afbeeldingen / Ontdek meer in de groep Invoegen...

🔍 Nauwkeurige selecties: Selecteer specifieke pagina’s / tabellen / vormen / kopalinea’s / Verbeter de navigatie met meer Selecteer -functies...

⭐ Ster-upgrades: Navigeer naar elke locatie / Automatisch herhalende tekst invoegen / Wissel tussen documentvensters /11 conversietools...

👉 Wilt u deze functies uitproberen? Download Kutools voor Word nu! 🚀

Gratis downloaden     Nu kopen     Meer informatie over Kutools voor Word

 

Beste productiviteitstools voor kantoor

Kutools voor Word – 100+ tools voor Word

• 🤖 Kutools AI-functies: AI Assistent / Realtime Assistent / Super Pools / Super Vertalen / AI Redactie / AI Proeflezen
• 📘 Documentbeheersing: Pagina’s splitsen / Documenten samenvoegen / Batch converteren naar PDF
• ✏ Inhoud bewerken: Batch Zoeken en Vervangen / Alle afbeeldingen formaat wijzigen
• 🧹 Moeiteloos opschonen: Verwijder extra spaties / Verwijder sectie-eindes
• ➕ Creatieve invoegingen: Voeg duizendtallen-scheidingstekens toe / Voeg selectievakjes toe / Maak QR-codes

Gratis downloaden Nu kopen Meer informatie over Kutools