Doppelt unterstrichene Wörter automatisch an das Ende kopieren

01/09/2009 - 09:24 von Andreas Bernd Ksienzyk | Report spam
Hallo,

gibt es eine sehr einfache Möglichkeit, in einem Word-Dokument alle doppelt
unterstrichenen Wörter an das Ende des Dokuments zu kopieren?

Mein Gedanke:

Gehe an den Anfang des Dokuments
Suche nach einem doppelt unterstrichenen Wort
Markiere es und formatiere es einfach unterstrichen
Gehe an das Ende des Dokuments und füge das markierte Wort ohne Format (also
nicht unterstrichen) ein
Tue dies so lange, bis Du kein doppelt unterstrichenes Wort mehr findest.

Der Makro sollte auf möglichst vielen Word-Versionen laufen.

Falls es zu kompliziert ist, reichen auch Hinweise wo ich "erste Schritte"
und weitere Informationen zur VB-Programmierung finden kann.

Herzliche Grüße aus Warschau
Andreas Bernd Ksienzyk
 

Lesen sie die antworten

#1 Helmut Weber
01/09/2009 - 10:36 | Warnen spam
Hallo Andreas,
etwa so:

Sub Makro3()
Dim rDcm As Range
Set rDcm = ActiveDocument.Range
With rDcm.Find
.Font.Underline = wdUnderlineDouble
While .Execute
rDcm.Font.Underline = wdUnderlineSingle
ActiveDocument.Range.InsertAfter vbCrLf & rDcm
rDcm.End = ActiveDocument.Range.End
Wend
End With
End Sub

Gruss
Helmut Weber
Word 2002, Windows XP

Ähnliche fragen