Wie ersetzt man Unterstreichung durch Kursivschrift in Word?

In bestimmten Situationen möchten Sie möglicherweise alle unterstrichenen Zeichen schnell durch kursive Schrift – oder umgekehrt – in Word ersetzen. Wie gelingt Ihnen das effizient? Mit den folgenden beiden Methoden tauschen Sie im Handumdrehen alle Unterstreichungen gegen Kursivschrift aus.

Ersetzen Sie alle unterstrichenen Zeichen durch Kursivschrift mit Suchen und Ersetzen

Ersetzen Sie alle unterstrichenen Zeichen durch Kursivschrift mit VBA

---

Ersetzen Sie alle unterstrichenen Zeichen durch Kursivschrift mit Suchen und Ersetzen

Schritt 1: Klicken Sie auf Start>Ersetzenoder verwenden Sie die Tastenkombination Strg + H, um das Dialogfeld Suchen und Ersetzen zu öffnen;

Schritt 2: Klicken Sie auf die Schaltfläche Weitere Optionen, um die Optionen für die Suche anzuzeigen.

Schritt 3: Setzen Sie den Cursor in das Feld Suchen nach, klicken Sie in der Dropdown-Liste Format auf „Schriftart“ und wählen Sie den Unterstreichungsstil sowie die Unterstreichungsfarbe aus.

Schritt 4: Setzen Sie den Cursor in das Feld Ersetzen durch, klicken Sie auf Schriftart unter der Dropdown-Liste Format und wählen Sie in der Liste „Schriftschnitt“ Kursiv aus.

    

Schritt 5: Klicken Sie auf OK oder Alle ersetzen.

Hinweis:

1. Klicken Sie auf Keine Formatierung, um sicherzustellen, dass vor Ihrer Aktion keine Formatierungsinformationen im Feld Suchen nach und im Feld Ersetzen durch festgelegt sind.

2. Durch diesen Vorgang wird der unterstrichene Text lediglich kursiv formatiert – die Unterstreichung bleibt erhalten.

---

Ersetzen Sie alle unterstrichenen Zeichen durch Kursivschrift mit VBA

Alternativ können Sie auch VBA nutzen, um Unterstreichungen durch Kursivschrift zu ersetzen. Falls Sie jedoch nicht mit Makros vertraut sind, raten wir von dieser Methode ab. Gehen Sie wie folgt vor:

Schritt 1: Drücken Sie Alt+F11, um das VBA-Fenster in Word zu öffnen;

Schritt 2: Klicken Sie auf Modulunter der Registerkarte Einfügen, und fügen Sie den VBA-Code in das Modul-Fenster ein;

Der VBA-Code zum Ersetzen aller unterstrichenen Zeichen durch Kursivschrift 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

Schritt 3: Klicken Sie auf die Schaltfläche Ausführen, um den VBA-Code auszuführen (oder drücken Sie)F5).

Hinweis:

1. Dieser Code eignet sich nur für einfache Unterstreichungen ohne Farbe. Sie können „wdUnderlineSingle“ im Code ändern, um andere Unterstreichungsstile wie beispielsweise „wdUnderlineDouble“ oder „wdUnderlineThick“ zu verwenden.

2. Dieser Code formatiert den unterstrichenen Text lediglich kursiv – die Unterstreichung bleibt erhalten.

---