1 Тема от Mad Forester

  • Mad Forester
  • рядовой
  • Неактивен
  • Зарегистрирован: 21.11.2011
  • Сообщений: 4

Тема: Удаление гиперссылок

Доброго времени суток!
Задача: удалить все гиперссылки из файла Word "одним махом".
Написал такой вот макрос:

Sub DelHyperlinks()
' гарантированно удаляет все гиперссылки из документа
    ActiveWindow.View.ShowFieldCodes = True
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "HYPERLINK"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
Do While Selection.Find.Found
    ActiveDocument.Hyperlinks(1).Delete
Loop
    ActiveWindow.View.ShowFieldCodes = False
End Sub

При запуске появляется сообщение об ошибке (Запрашиваемый номер семейства не существует), но свою работу макрос выполняет!
Кто подскажет, что нужно поправить в коде?

2 Ответ от Mad Forester

  • Mad Forester
  • рядовой
  • Неактивен
  • Зарегистрирован: 21.11.2011
  • Сообщений: 4

Re: Удаление гиперссылок

Нашел простое и изящное решение:

Sub Макрос1()
Do While ActiveDocument.Hyperlinks.Count > 0
    ActiveDocument.Hyperlinks(1).Delete
Loop
End Sub

Проверил - работает безошибочно, удаляет все ссылки  smile