Как удалить все ссылки сразу из всех документов?

[Karyuudo]

Здравствуйте!
Есть много вордовских файлов с ссылками. Каждый открывать - ctr+a, ctrl+shift+f9, и еще потом цвет изменить займет не мало времени.
Может есть еще какой-то способ удалить все ссылки сразу из сотен файлов?

на одном форуме помог добрый модератор

With CreateObject("word.application")
  For Each x In CreateObject("scripting.filesystemobject").getfile(wscript.scriptfullname).parentfolder.Files
    If LCase(Mid(x.Name, InStrRev(x.Name, ".") + 1, 4)) = "docx" Then
      With .documents.open(x.Path)
        numDocs = numDocs + 1
        .Range.Fields.Unlink 'Ctrl+A, Ctrl+Shift+F9
        .Close True 'save changes
      End With
    End If
  Next
  .Quit
End With
wscript.echo "Обработано документов " & numDocs