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?

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?

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?

Perfecto ya me quitó la mayoría de vínculos (eran como 30) solo quedan 4 que
no se porqué razón no los quita. Estoy buscando de que se trata.


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?
>>
>>
>>

Los vínculos que no quitó la subrutina están en el encabezado del documento.


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?
>>
>>
>>