Wie unterstrichene Wörter löschen?

Computer: Software & Programmierung Office Software
#1

Hallo,
ich habe einen sehr umfangreichen Text in Word 2010, in dem viele unterstrichenen Wörter und Passagen vorkommen, die ich ersatzlos streichen möchte. Wie macht man das?
Gruß,
lynndinn

#2

ich habe einen sehr umfangreichen Text in Word 2010, in dem
viele unterstrichenen Wörter und Passagen vorkommen, die ich
ersatzlos streichen möchte. Wie macht man das?

Hallo lynndinn,

vllt. geht es auch irgendwie mit
Start—Ersetzen—Format—Zeichen…

Ansonsten:

Option Explicit

Sub UnterstrichenWort()
Dim Wort As Object
Application.ScreenUpdating = False
For Each Wort In ActiveDocument.Words
 If Wort.Font.Underline wdUnderlineNone Then
 Wort.Delete
 End If
Next Wort
Application.ScreenUpdating = True
Application.ScreenRefresh
End Sub

Gruß
Reinhard

#3

Hallo Reinhard,
danke für die Hilfe. Das mit Start … geht nicht, aber dein Makro hat sofort das Problem gelöst.
Gruß,
lynndinn