Макрос удаления ссылок на КонсультантПлюс

Макрос удаления ссылок, остающихся после копирования текста из системы КонсультантПлюс (как с сайта, так и из программы, установленной на компьютере). Удаление происходит только ссылок на КонсультантПлюс, на другие сайты ссылки остаются.

Текст макроса:

Sub Removehyperlinks()

For i = ActiveDocument.Hyperlinks.Count To 1 Step -1
Set link = ActiveDocument.Hyperlinks(i)
If InStr(link.Address, "consultant") > 0 Then
link.Range.Font.Color = 0
link.Delete
End If
Next

End Sub

Утилита "Удаление ссылок на документы при копировании из КонсультантПлюс".