Buscar y Reemplazar

09/09/2005 - 18:32 por Eliseo Ortega V. | Informe spam
Buenos días a todos, tengo la siguiente situación:

Estoy trabajando en un documento relativamente largo, (aprox. 100 páginas)
donde aparecen palabras a las que quiero insertar in Hyperlink. Estas
palabras aparecen muchisimas veces en el documento, por lo que quiero
utilizar la opción de "Buscar y Reemplazar". El problema es que no se como
decirle a Word que al encontrar la palabra, le agregue el hiperlink.

Espero hayan entendido mi pedido. Desde ya gracias!

PS: el link es a un lugar en el mismo documento.
 

Leer las respuestas

#1 Marta PM [MVP Office]
10/09/2005 - 23:28 | Informe spam
Hola:
Mediante la función Buscar y Reemplazar creo que no es posible decirle que tome un
hipervínculo. Es posible hacerlo mediante una macro.
Primero tienes que tener creados los marcadores en Word para poder ejecutar los links
dentro del documento y luego ejecutas esta macro:
Sub BuscaryReemplazarconHipervinculos()
Dim rangoReemplazar As Range
Dim rangoEncontrar As Range
Set rangoReemplazar = ActiveDocument.Content
With rangoReemplazar.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "manguito"
'"Texto" es el texto que tú quieres buscar
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
Do While .Execute
'Creamos ahora un rango independiente, pero igual que el anterior
Set rangoEncontrar = rangoReemplazar.Duplicate
'Reemplazamos el texto con el hipervínculo
ActiveDocument.Hyperlinks.Add Anchor:=rangoEncontrar, Address:="", _
SubAddress:="marta"
'En subaddress debes poner el nombre del marcador que tienes _
'referenciado y a donde quieres dirigir el hipervínculo
rangoReemplazar.Collapse wdCollapseEnd
Loop
End With
End Sub

Espero que te sirva.
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/

"Eliseo Ortega V." escribió en el mensaje
news:
Buenos días a todos, tengo la siguiente situación:

Estoy trabajando en un documento relativamente largo, (aprox. 100 páginas)
donde aparecen palabras a las que quiero insertar in Hyperlink. Estas
palabras aparecen muchisimas veces en el documento, por lo que quiero
utilizar la opción de "Buscar y Reemplazar". El problema es que no se como
decirle a Word que al encontrar la palabra, le agregue el hiperlink.

Espero hayan entendido mi pedido. Desde ya gracias!

PS: el link es a un lugar en el mismo documento.

Preguntas similares