Удаляем ссылки и сноски в MS Word

В редакторе Word нет встроенной возможности удалить ссылки из документа. Вернее, она есть — нажимаем Ctrl + A, а затем Ctrl + Shift + F9. Но синий цвет по-прежнему остаётся. Еще одна проблема — печать страниц из Википедии, сноски, которыми утыканы все статьи, в печатном виде часто бесполезны. Беглым поиском решения не нашел, поэтому написал два простеньких макроса:

Sub Удалить_ссылки()
  On Error Resume Next
  'Определим выделен ли текст, если да, возьмем выделение, нет - весь документ
  If Len(Selection.Range.Text) > 0 Then
    Set MyObject = Selection
  Else
    Set MyObject = ActiveDocument
  End If
  'Изменим стиль текста ссылок, потом удалим ссылки
  While MyObject.Hyperlinks.Count > 0
    MyObject.Hyperlinks(1).Range.Font.Underline = wdUnderlineNone
    MyObject.Hyperlinks(1).Range.Font.ColorIndex = wdAuto
    MyObject.Hyperlinks(1).Delete
  Wend
End Sub

Sub Удалить_сноски_wiki()
  With Selection.Range.Find
    .Text = "\[*\]"
    .Replacement.Text = ""
    .MatchWildcards = True
    .Forward = True
    If Len(Selection.Range.Text) = 0 Then
      .Wrap = wdFindContinue
    End If
    .Execute Replace:=wdReplaceAll
  End With
End Sub

Если текст выделен, то будет обработана выделенная часть, если не выделен — весь документ. У первого макроса есть небольшая проблема: удаление и перекрашивание каждой ссылки пишется в историю изменений, поэтому при отмене каждая ссылка будет отменяться по отдельности. Как исправить не знаю, с вордовским диалектом бейсика знаком очень слабо.