Удаление всех гиперссылок

[БуреВестник]

Кто может объяснить, почему такая конструкция

Sub HyperlinkDelete()
Dim oHyperlink As Hyperlink
For Each oHyperlink In ActiveDocument.Hyperlinks
    oHyperlink.Delete
Next
End Sub

не удаляет все гиперссылки?
А надо использовать вот такую

Sub RemoveHyperlinks()
While ActiveDocument.Hyperlinks.Count > 0
ActiveDocument.Hyperlinks(1).Delete
Wend
Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False
End Sub

[Sasha_Smirnov]

Ну это из-за того, что первый цикл находит

In ActiveDocument.Hyperlinks

сначала семейство гиперссылок документа пронумерованным от 1 до их количества, а после первого прохода — первой становится гиперссылка, стоявшая в документе второй.

В общем, тут собака и зарыта. Конкретно по шагам не распишу, уж увольте!

Можно ведь и вручную: всё выделить — и разорвать связи (шифт-контрол-F9).

[JTG]

Я с конца документа удалял

For current = ActiveDocument.Hyperlinks.Count To 1 Step -1
    ActiveDocument.Hyperlinks(current).Delete
Next current

[БуреВестник]

Sasha_Smirnov

Можно ведь и вручную: всё выделить — и разорвать связи (шифт-контрол-F9).

Если такое сделать, то будут удалены и поля.

[viter.alex]

Все дело в том, что элемент удаляется из коллекции и после каждого удаления коллекция перестраивается. Это известная фишка, попробуйте также удалить, например, InlineShape. Получится то же самое, часть удалится, а часть останется.
Как правильно отметил JTG, удалять нужно начиная с конца коллекции, или, если не хочется вводить доп. переменную, можно так:

  Dim oHyp As Hyperlink
  Do
    For Each oHyp In ActiveDocument.Hyperlinks
      oHyp.Delete
    Next
  Loop While ActiveDocument.Hyperlinks.Count <> 0

Сообщение от JTG

Я с конца документа удалял

Не с конца документа, а с конца коллекции. Элементы в коллекцию добавляются по мере добавления гиперссылок в документ.

Добавлено позже
Виноват, действительно они выстраиваются по порядку вне зависимости от порядка добавления в документ

[БуреВестник]

viter.alex
а вот таблицы удаляются почему-то.

[viter.alex]

Сообщение от БуреВестник

viter.alex
а вот таблицы удаляются почему-то.

Это уже вопрос к программистам Microsoft, как они там организовали коллекции