Cómo automatizo el proceso de Romper vínculos en un documento??

Prueba la siguiente macro:
Sub BorrarHipervinculos
Dim h As Long
For h = 1 to ActiveDocument.Hyperlinks.Count
ActiveDocument.Hyperlinks(1).Delete
Next h
End Sub

Marta PM
Saúdos/Saludos
MVP Office

(Si quieres escribirme ya sabes lo que no quiero)
__________
La información contenida en este mensaje se proporciona "TAL CUAL", sin garantías
explícitas ni implícitas, y no otorga derecho alguno. Usted asume cualquier riesgo al
poner en práctica lo recomendado o sugerido en el presente mensaje.

¿Quieres saber que es un MVP?
http://mvp.support.microsoft.com/

"Manuel" escribió en el mensaje
news:

Intenté grabar una macro que haga el proceso de Edición, vínculo, Romper
vínculos, pero no se graba.
Este documento tiene vínculos a una tabla y quiero quitarlos después de que
el documento se ha generado.

Habrá otra manera de automatizar el proceso de romper vínculos. O estoy
haciendo algo mal al grabar el macro?