doppelte Abschnitte anzeigen lassen?

04/05/2009 - 17:44 von Calvin | Report spam
Hallo,

Word 2003. Ich habe einen Text geschrieben, in den
ich Abschnitte aus anderen Aufsàtzen einkopiert habe.
Nun ist mir aufgefallen, dass manche Sàtze und ganze
Teile doppelt sind. Gibt es eine Möglichkeit, sich diese Abschnitte
anzeigen zu lassen?

Danke und Gruß
Calvin
 

Lesen sie die antworten

#1 Helmut Weber
05/05/2009 - 17:26 | Warnen spam
Hallo Calvin,

versuchs mal damit, kann aber ganz schön lange dauern.

Sub Test06a()
Dim lSnt As Long
Dim i As Long
Dim j As Long
Dim r As Long
Dim o As Long
lSnt = ActiveDocument.Sentences.Count
For i = 1 To lSnt - 1
r = ActiveDocument.Sentences(i).start
For j = 2 To lSnt
o = ActiveDocument.Sentences(j).start
If ActiveDocument.Sentences(i).Text = _
ActiveDocument.Sentences(j).Text And _
r <> o Then _
ActiveDocument.Sentences(j).HighlightColorIndex = wdYellow
Next
Next
End Sub


Gruß

Helmut Weber

Vista Small Business, Office XP

Ähnliche fragen