Hipervinculos

Hola:

hacer reemplazar me reemplaza en el texto del hipervínculo no en el contenido.

Bueno, si ya has conseguido eso entonces es sencillo. Sólo debes editar los códigos
de campo, porque un hipervínculo no es más que eso: un campo. Si editas los códigos
de campo (seleccionas todo y pulsas ALT+F9) verás que te aparece el hipervínculo más
o menos así: { HYPERLINK "archivo.doc" } por lo que tan sólo tienes que hacer un
buscar y reemplazar (manteniendo los códigos de campo visibles) y cambiar
"archivo.doc" por "z:\\archivo.doc".
He creado una macro (aunque no es mi fuerte) que lo realiza para todos los documentos
en una carpeta, pero no he tenido tiempo de probarla y no creo que lo tenga hasta el
jueves. Si quieres te la dejo aquí y tú la depuras.
Ya dirás.

Marta PM
Saúdos/Saludos
MVP Office

(Si quieres escribirme ya sabes lo que no quiero)
Más consejos en www.fermu.com
__________
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/

"Gorka Santos Bedoya" escribió en el mensaje
news:%

Hola Marta:

El problema es que ahora están en la misma carpeta, sin unidad: archivo.doc y
tendríamos que cambiarles a una unidad z:\archivo.doc.

¿Tu crees que no habría problemas ne crear una macro?. Cuando intento hacer
reemplazar me reemplaza en el texto del hipervínculo no en el contenido.

Un saludo y muchas gracias por responder, Marta.

Gorka





"Marta PM [MVP Office]" escribió en el mensaje
news:

Hola:
Se podría hacer una macro para cambiar esos hipervínculos. ¿Puedes poner la ruta
antigua y la nueva? ¿Esos documentos están todos en una msma carpeta o no?

Marta PM
Saúdos/Saludos
MVP Office

(Si quieres escribirme ya sabes lo que no quiero)
Más consejos en www.fermu.com
__________
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/

"Gorka Santos Bedoya" escribió en el mensaje
news:

Hola a todos:

Tengo una problemilla, tengo una serie de documentos, con hipervínculos a
otros documentos word. El caso es que hemos cambiado de máquina y habría que
cambiarles a todos estos links.

¿Se os ocurre como podríamos hacerlo?, ¿se puede hacer reemplazar el contenido
de un hipervínculo?.


Muchas gracias a todos.

Gorka

Hola Marta:

¿Que quieres decir con?

He creado una macro que lo realiza para todos los documentos en una carpeta

¿Puedes reemplazar en todos los documentos de una carpeta, a la vez?,
¿me puedes pasar la macro, por favor?, te lo agradecería mucho.

Un saludo y gracias





"Marta PM [MVP Office]" escribió en el
mensaje news:%

Hola:

hacer reemplazar me reemplaza en el texto del hipervínculo no en el
contenido.

Bueno, si ya has conseguido eso entonces es sencillo. Sólo debes editar
los códigos de campo, porque un hipervínculo no es más que eso: un campo.
Si editas los códigos de campo (seleccionas todo y pulsas ALT+F9) verás
que te aparece el hipervínculo más o menos así: { HYPERLINK
"archivo.doc" } por lo que tan sólo tienes que hacer un buscar y
reemplazar (manteniendo los códigos de campo visibles) y cambiar
"archivo.doc" por "z:\\archivo.doc".
He creado una macro (aunque no es mi fuerte) que lo realiza para todos los
documentos en una carpeta, pero no he tenido tiempo de probarla y no creo
que lo tenga hasta el jueves. Si quieres te la dejo aquí y tú la depuras.
Ya dirás.

Marta PM
Saúdos/Saludos
MVP Office

(Si quieres escribirme ya sabes lo que no quiero)
Más consejos en www.fermu.com
__________
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/

"Gorka Santos Bedoya" escribió en el mensaje
news:%

Hola Marta:

El problema es que ahora están en la misma carpeta, sin unidad:
archivo.doc y tendríamos que cambiarles a una unidad z:\archivo.doc.

¿Tu crees que no habría problemas ne crear una macro?. Cuando intento
hacer reemplazar me reemplaza en el texto del hipervínculo no en el
contenido.

Un saludo y muchas gracias por responder, Marta.

Gorka





"Marta PM [MVP Office]" escribió en el
mensaje news:

Hola:
Se podría hacer una macro para cambiar esos hipervínculos. ¿Puedes poner
la ruta antigua y la nueva? ¿Esos documentos están todos en una msma
carpeta o no?

Marta PM
Saúdos/Saludos
MVP Office

(Si quieres escribirme ya sabes lo que no quiero)
Más consejos en www.fermu.com
__________
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/

"Gorka Santos Bedoya" escribió en el mensaje
news:

Hola a todos:

Tengo una problemilla, tengo una serie de documentos, con
hipervínculos a otros documentos word. El caso es que hemos cambiado de
máquina y habría que cambiarles a todos estos links.

¿Se os ocurre como podríamos hacerlo?, ¿se puede hacer reemplazar el
contenido de un hipervínculo?.


Muchas gracias a todos.

Gorka

Sí, te la puedo pasar, pero te advierto que no la he probado, así que pruébala antes
de aplicarla.
Sub Macro24()
'
' Macro24 Macro
' Macro recorded 19/12/2005 by Marta -Limit
'

Dim strFichero As String
Dim strRuta As String
Dim MiRango As Range
Dim Pregunta, RPregunta As String

'Debes poner la ruta de la carpeta donde tengas los archivos
strRuta = "H:\Documents and Settings\Nueva carpeta\"
strFichero = Dir$(strRuta & "*.doc")
Pregunta = "Inserte la ruta del hipervínculo a cambiar, en un formato como el
siguiente (comillas incluídas):" & strQuote & "H:\\Documents and Settings\\Mis
documentos\\CERRADO.doc"""
hipervinculo = InputBox(Pregunta)
RPregunta = "Inserte la nueva ruta del hipervínculo, en un formato como el
siguiente:" & strQuote & "H:\\Documents and Settings\\Mis documentos\\CERRADO.doc"""
rhipervinculo = InputBox(RPregunta)

Do Until strFichero = ""
Documents.Open FileName:=strRuta & strFichero
With Selection
strQuote = Chr(34)
ActiveWindow.View.ShowFieldCodes = True
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = hipervinculo
.Replacement.Text = rhipervinculo
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.WholeStory
Selection.Fields.Update
End With
ActiveWindow.View.ShowFieldCodes = False
Documents.Close Savechanges:=wdSaveChanges
strFichero = Dir()
Loop
Set MiRango = Nothing
End Sub

¿Comentas?
Marta PM
Saúdos/Saludos
MVP Office

(Si quieres escribirme ya sabes lo que no quiero)
Más consejos en www.fermu.com
__________
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/

"Gorka Santos Bedoya" escribió en el mensaje
news:

Hola Marta:

¿Que quieres decir con?

He creado una macro que lo realiza para todos los documentos en una carpeta

¿Puedes reemplazar en todos los documentos de una carpeta, a la vez?, ¿me puedes
pasar la macro, por favor?, te lo agradecería mucho.

Un saludo y gracias





"Marta PM [MVP Office]" escribió en el mensaje
news:%

Hola:

hacer reemplazar me reemplaza en el texto del hipervínculo no en el contenido.

Bueno, si ya has conseguido eso entonces es sencillo. Sólo debes editar los
códigos de campo, porque un hipervínculo no es más que eso: un campo. Si editas
los códigos de campo (seleccionas todo y pulsas ALT+F9) verás que te aparece el
hipervínculo más o menos así: { HYPERLINK "archivo.doc" } por lo que tan sólo
tienes que hacer un buscar y reemplazar (manteniendo los códigos de campo
visibles) y cambiar "archivo.doc" por "z:\\archivo.doc".
He creado una macro (aunque no es mi fuerte) que lo realiza para todos los
documentos en una carpeta, pero no he tenido tiempo de probarla y no creo que lo
tenga hasta el jueves. Si quieres te la dejo aquí y tú la depuras.
Ya dirás.

Marta PM
Saúdos/Saludos
MVP Office

(Si quieres escribirme ya sabes lo que no quiero)
Más consejos en www.fermu.com
__________
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/

"Gorka Santos Bedoya" escribió en el mensaje
news:%

Hola Marta:

El problema es que ahora están en la misma carpeta, sin unidad: archivo.doc y
tendríamos que cambiarles a una unidad z:\archivo.doc.

¿Tu crees que no habría problemas ne crear una macro?. Cuando intento hacer
reemplazar me reemplaza en el texto del hipervínculo no en el contenido.

Un saludo y muchas gracias por responder, Marta.

Gorka





"Marta PM [MVP Office]" escribió en el mensaje
news:

Hola:
Se podría hacer una macro para cambiar esos hipervínculos. ¿Puedes poner la ruta
antigua y la nueva? ¿Esos documentos están todos en una msma carpeta o no?

Marta PM
Saúdos/Saludos
MVP Office

(Si quieres escribirme ya sabes lo que no quiero)
Más consejos en www.fermu.com
__________
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/

"Gorka Santos Bedoya" escribió en el mensaje
news:

Hola a todos:

Tengo una problemilla, tengo una serie de documentos, con hipervínculos a
otros documentos word. El caso es que hemos cambiado de máquina y habría que
cambiarles a todos estos links.

¿Se os ocurre como podríamos hacerlo?, ¿se puede hacer reemplazar el
contenido de un hipervínculo?.


Muchas gracias a todos.

Gorka

Gracias Marta, lo pruebo y te comento.

Un saludo:


"Marta PM [MVP Office]" escribió en el
mensaje news:

Sí, te la puedo pasar, pero te advierto que no la he probado, así que
pruébala antes de aplicarla.
Sub Macro24()
'
' Macro24 Macro
' Macro recorded 19/12/2005 by Marta -Limit
'

Dim strFichero As String
Dim strRuta As String
Dim MiRango As Range
Dim Pregunta, RPregunta As String

'Debes poner la ruta de la carpeta donde tengas los archivos
strRuta = "H:\Documents and Settings\Nueva carpeta\"
strFichero = Dir$(strRuta & "*.doc")
Pregunta = "Inserte la ruta del hipervínculo a cambiar, en un formato como
el siguiente (comillas incluídas):" & strQuote & "H:\\Documents and
Settings\\Mis documentos\\CERRADO.doc"""
hipervinculo = InputBox(Pregunta)
RPregunta = "Inserte la nueva ruta del hipervínculo, en un formato como el
siguiente:" & strQuote & "H:\\Documents and Settings\\Mis
documentos\\CERRADO.doc"""
rhipervinculo = InputBox(RPregunta)

Do Until strFichero = ""
Documents.Open FileName:=strRuta & strFichero
With Selection
strQuote = Chr(34)
ActiveWindow.View.ShowFieldCodes = True
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = hipervinculo
.Replacement.Text = rhipervinculo
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.WholeStory
Selection.Fields.Update
End With
ActiveWindow.View.ShowFieldCodes = False
Documents.Close Savechanges:=wdSaveChanges
strFichero = Dir()
Loop
Set MiRango = Nothing
End Sub

¿Comentas?
Marta PM
Saúdos/Saludos
MVP Office

(Si quieres escribirme ya sabes lo que no quiero)
Más consejos en www.fermu.com
__________
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/

"Gorka Santos Bedoya" escribió en el mensaje
news:

Hola Marta:

¿Que quieres decir con?

He creado una macro que lo realiza para todos los documentos en una
carpeta

¿Puedes reemplazar en todos los documentos de una carpeta, a la vez?,
¿me puedes pasar la macro, por favor?, te lo agradecería mucho.

Un saludo y gracias





"Marta PM [MVP Office]" escribió en el
mensaje news:%

Hola:

hacer reemplazar me reemplaza en el texto del hipervínculo no en el
contenido.

Bueno, si ya has conseguido eso entonces es sencillo. Sólo debes editar
los códigos de campo, porque un hipervínculo no es más que eso: un
campo. Si editas los códigos de campo (seleccionas todo y pulsas ALT+F9)
verás que te aparece el hipervínculo más o menos así: { HYPERLINK
"archivo.doc" } por lo que tan sólo tienes que hacer un buscar y
reemplazar (manteniendo los códigos de campo visibles) y cambiar
"archivo.doc" por "z:\\archivo.doc".
He creado una macro (aunque no es mi fuerte) que lo realiza para todos
los documentos en una carpeta, pero no he tenido tiempo de probarla y no
creo que lo tenga hasta el jueves. Si quieres te la dejo aquí y tú la
depuras.
Ya dirás.

Marta PM
Saúdos/Saludos
MVP Office

(Si quieres escribirme ya sabes lo que no quiero)
Más consejos en www.fermu.com
__________
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/

"Gorka Santos Bedoya" escribió en el mensaje
news:%

Hola Marta:

El problema es que ahora están en la misma carpeta, sin unidad:
archivo.doc y tendríamos que cambiarles a una unidad z:\archivo.doc.

¿Tu crees que no habría problemas ne crear una macro?. Cuando
intento hacer reemplazar me reemplaza en el texto del hipervínculo no
en el contenido.

Un saludo y muchas gracias por responder, Marta.

Gorka





"Marta PM [MVP Office]" escribió en el
mensaje news:

Hola:
Se podría hacer una macro para cambiar esos hipervínculos. ¿Puedes
poner la ruta antigua y la nueva? ¿Esos documentos están todos en una
msma carpeta o no?

Marta PM
Saúdos/Saludos
MVP Office

(Si quieres escribirme ya sabes lo que no quiero)
Más consejos en www.fermu.com
__________
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/

"Gorka Santos Bedoya" escribió en el mensaje
news:

Hola a todos:

Tengo una problemilla, tengo una serie de documentos, con
hipervínculos a otros documentos word. El caso es que hemos cambiado
de máquina y habría que cambiarles a todos estos links.

¿Se os ocurre como podríamos hacerlo?, ¿se puede hacer reemplazar
el contenido de un hipervínculo?.


Muchas gracias a todos.

Gorka

Hola Marta,

soy una compañera de Gorka. He probado la macro y funciona muy bien, pero
tenemos un problema:

Nosotros queremos buscar aquellos hipervínculos que no tienen path, esto es
no tienen la \. y a los mismos meterles por delante un nuevo path. ¿podrías
ayudarnos?

Muchas gracias.

Kontxu

"Marta PM [MVP Office]" escribió en el
mensaje news:

Sí, te la puedo pasar, pero te advierto que no la he probado, así que

pruébala antes

de aplicarla.
Sub Macro24()
'
' Macro24 Macro
' Macro recorded 19/12/2005 by Marta -Limit
'

Dim strFichero As String
Dim strRuta As String
Dim MiRango As Range
Dim Pregunta, RPregunta As String

'Debes poner la ruta de la carpeta donde tengas los archivos
strRuta = "H:\Documents and Settings\Nueva carpeta\"
strFichero = Dir$(strRuta & "*.doc")
Pregunta = "Inserte la ruta del hipervínculo a cambiar, en un formato como

el

siguiente (comillas incluídas):" & strQuote & "H:\\Documents and

Settings\\Mis

documentos\\CERRADO.doc"""
hipervinculo = InputBox(Pregunta)
RPregunta = "Inserte la nueva ruta del hipervínculo, en un formato como el
siguiente:" & strQuote & "H:\\Documents and Settings\\Mis

documentos\\CERRADO.doc"""

rhipervinculo = InputBox(RPregunta)

Do Until strFichero = ""
Documents.Open FileName:=strRuta & strFichero
With Selection
strQuote = Chr(34)
ActiveWindow.View.ShowFieldCodes = True
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = hipervinculo
.Replacement.Text = rhipervinculo
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.WholeStory
Selection.Fields.Update
End With
ActiveWindow.View.ShowFieldCodes = False
Documents.Close Savechanges:=wdSaveChanges
strFichero = Dir()
Loop
Set MiRango = Nothing
End Sub

¿Comentas?
Marta PM
Saúdos/Saludos
MVP Office

(Si quieres escribirme ya sabes lo que no quiero)
Más consejos en www.fermu.com
__________
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/

"Gorka Santos Bedoya" escribió en el mensaje
news:
> Hola Marta:
>
> ¿Que quieres decir con?
>
> He creado una macro que lo realiza para todos los documentos en una

carpeta

>
> ¿Puedes reemplazar en todos los documentos de una carpeta, a la vez?,

¿me puedes

> pasar la macro, por favor?, te lo agradecería mucho.
>
> Un saludo y gracias
>
>
>
>
>
> "Marta PM [MVP Office]" escribió en el

mensaje

> news:%
>> Hola:
>>> hacer reemplazar me reemplaza en el texto del hipervínculo no en el

contenido.

>> Bueno, si ya has conseguido eso entonces es sencillo. Sólo debes editar

los

>> códigos de campo, porque un hipervínculo no es más que eso: un campo.

Si editas

>> los códigos de campo (seleccionas todo y pulsas ALT+F9) verás que te

aparece el

>> hipervínculo más o menos así: { HYPERLINK "archivo.doc" } por lo que

tan sólo

>> tienes que hacer un buscar y reemplazar (manteniendo los códigos de

campo

>> visibles) y cambiar "archivo.doc" por "z:\\archivo.doc".
>> He creado una macro (aunque no es mi fuerte) que lo realiza para todos

los

>> documentos en una carpeta, pero no he tenido tiempo de probarla y no

creo que lo

>> tenga hasta el jueves. Si quieres te la dejo aquí y tú la depuras.
>> Ya dirás.
>>
>> Marta PM
>> Saúdos/Saludos
>> MVP Office
>>
>> (Si quieres escribirme ya sabes lo que no quiero)
>> Más consejos en www.fermu.com
>> __________
>> 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/
>>
>> "Gorka Santos Bedoya" escribió en el mensaje
>> news:%
>>> Hola Marta:
>>>
>>> El problema es que ahora están en la misma carpeta, sin unidad:

archivo.doc y

>>> tendríamos que cambiarles a una unidad z:\archivo.doc.
>>>
>>> ¿Tu crees que no habría problemas ne crear una macro?. Cuando

intento hacer

>>> reemplazar me reemplaza en el texto del hipervínculo no en el

contenido.

>>>
>>> Un saludo y muchas gracias por responder, Marta.
>>>
>>> Gorka
>>>
>>>
>>>
>>>
>>>
>>> "Marta PM [MVP Office]" escribió en

el mensaje

>>> news:
>>>> Hola:
>>>> Se podría hacer una macro para cambiar esos hipervínculos. ¿Puedes

poner la ruta

>>>> antigua y la nueva? ¿Esos documentos están todos en una msma carpeta

o no?

>>>>
>>>> Marta PM
>>>> Saúdos/Saludos
>>>> MVP Office
>>>>
>>>> (Si quieres escribirme ya sabes lo que no quiero)
>>>> Más consejos en www.fermu.com
>>>> __________
>>>> 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/
>>>>
>>>> "Gorka Santos Bedoya" escribió en el mensaje
>>>> news:
>>>>> Hola a todos:
>>>>>
>>>>> Tengo una problemilla, tengo una serie de documentos, con

hipervínculos a

>>>>> otros documentos word. El caso es que hemos cambiado de máquina y

habría que

>>>>> cambiarles a todos estos links.
>>>>>
>>>>> ¿Se os ocurre como podríamos hacerlo?, ¿se puede hacer reemplazar

el

>>>>> contenido de un hipervínculo?.
>>>>>
>>>>>
>>>>> Muchas gracias a todos.
>>>>>
>>>>> Gorka
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>