Cómo romper vínculos que estan dentro de un cuadro de texto

Supongo que son vínculos del tipo de los anteriores ¿no?
Prueba este código:
Sub eliminarvinculoscuadrostexto()
Dim r As Range
Dim cuadro As Shape
Set r = ActiveDocument.Range
For Each cuadro In r.ShapeRange
cuadro.TextFrame.TextRange.Fields.Unlink
Next cuadro
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:

Hola,
Ayer me ayudaron a quitar vínculos de un doc. de word con el siguiente código:

' Quita los vínculos de cuerpo del documento
With ActiveDocument.Range.Fields
.Unlink
End With

'Quita vinculos del encabezado
ActiveDocument.Sections(1).Headers(1).Range.Fields.Unlink

Pero me falta quitar los vínculos que están dentro de Cuadros de Texto.
Alguien sabe como debo aplicar el comando??
Manuel