Word VBA

[AndruhaRef]

Друзья, я с вопросом.

У меня есть макрос , который помечает все дубли гиперссылок в файле. Зелёным цветом оригиналы - желтым дубли.

Макрос:
Sub highlightdup()
Dim I, J As Long
Dim xRngFind, xRng As Range
Dim xStrFind, xStr As String
Options.DefaultHighlightColorIndex = wdYellow
Application.ScreenUpdating = False
With ActiveDocument
For I = 1 To .Paragraphs.Count - 1
Set xRngFind = .Paragraphs(I).Range
If xRngFind.HighlightColorIndex <> wdYellow Then
For J = I + 1 To .Paragraphs.Count
Set xRng = .Paragraphs(J).Range
If xRngFind.Text = xRng.Text Then
xRngFind.HighlightColorIndex = wdBrightGreen
xRng.HighlightColorIndex = wdYellow
End If
Next
End If
Next
End With
End Sub

Вопрос - как мне после того как я избавился от дублей (вручную удалял кстати, может подскажете макрос на удаление дублей ?) , убрать зелёное это выделение ?

[Aleksandr H.]

ссылки как на скрине: каждая ссылка на новой строке ?

Скопировать в EXCEL и применить "Удалить Дубликаты" и без раскрашивания будет гуд