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

Ya encontré para quitar los vínculos del encabezado.
ActiveDocument.Sections(1).Headers(1).Range.Fields.Unlink

Ya quedó listo, te agradezco muchisimo tu ayuda!!!!!!!!
Manuel


"Marta PM [MVP Office]" escribió:

Prueba entonces lo siguiente:
Sub Borrarvinculos()
With ActiveDocument.Range.Fields
.Unlink
End With
End Sub

¿Comentas?
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 Marta, muchas gracias por tu ayuda.
>
> Aprovechando, hice una prueba pero no funciona la macro. Los vínculos que
> tengo son a una tabla de excel. Supongo que el método hyperlinks no aplica
> para mi ejemplo, pero no se cual utilizar.
>
>
> Manuel
>
>
> "Marta PM [MVP Office]" escribió:
>
>> 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?
>>
>>
>>

:-)

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:

Ya encontré para quitar los vínculos del encabezado.
ActiveDocument.Sections(1).Headers(1).Range.Fields.Unlink

Ya quedó listo, te agradezco muchisimo tu ayuda!!!!!!!!
Manuel


"Marta PM [MVP Office]" escribió:

Prueba entonces lo siguiente:
Sub Borrarvinculos()
With ActiveDocument.Range.Fields
.Unlink
End With
End Sub

¿Comentas?
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 Marta, muchas gracias por tu ayuda.
>
> Aprovechando, hice una prueba pero no funciona la macro. Los vínculos que
> tengo son a una tabla de excel. Supongo que el método hyperlinks no aplica
> para mi ejemplo, pero no se cual utilizar.
>
>
> Manuel
>
>
> "Marta PM [MVP Office]" escribió:
>
>> 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?
>>
>>
>>