Listado de los hipervínculos de un documento

hola,

necesito sacar una lista con todos los hipervinculos que tiene un
documento Word, que incluya el texto y la URL de cada uno de ellos...

A falta de mas detalles..., puedes probar algo como lo siguiente >>

'[]

Sub Url_and_texto()
Dim x As Hyperlink
For Each x In ActiveDocument.Hyperlinks
Selection.TypeText x.Name & " - " & x.Range _
& vbCrLf
Next
End Sub

'[]


Comentanos...!


Saludos
Monica


www.fermu.com
www.teladearana.es

Hola, Mónica.
La macro que me propones me da error en "Selection.TypeText x.Name & " - " &
x.Range & vbCrLf"

Explico mejor lo que necesitaría hacer:

En el texto tengo varios enlaces/hipervínculos, por ejemplo,

"Para ir a Google [pincha aquí]" (el hipervínculo entre corchetes)

Para crear este hipervínculo selecciono el texto "pincha aquí", luego
Insertar/hipervínculo; en la línea "Dirección" escribo http://www.google.es


Bien, así tengo todos los hipervínculos. Lo que necesitaría es para cada uno
de ellos llegar al siguiente resultado:

[pincha aquí]->pincha aquí (texto del
hipervínculo)-->http://www.google.es (URL del hipervínculo)

y tanto el texto como la URL deben aparecer como texto plano.


Lo he resuelto con un automatizador de tareas (Macro Scheduler) pero el
problema está en que al distribuir el documento los destinatarios no disponen
de la macro. Por eso me gustaría hacerlo desde el propio Word.

No sé si con esta explicación me podrás ayudar. Muchas gracias.
******************************************************

"Monica May" escribió:

hola,

>necesito sacar una lista con todos los hipervinculos que tiene un
> documento Word, que incluya el texto y la URL de cada uno de ellos...

A falta de mas detalles..., puedes probar algo como lo siguiente >>

'[]

Sub Url_and_texto()
Dim x As Hyperlink
For Each x In ActiveDocument.Hyperlinks
Selection.TypeText x.Name & " - " & x.Range _
& vbCrLf
Next
End Sub

'[]


Comentanos...!


Saludos
Monica


www.fermu.com
www.teladearana.es

hola,

Para el error que mencionas:

Ojo -> Cuidado con los saltos al copiar y pegar desde donde estes leyendo
este mensaje...

El codigo anterior te listaba los hipervinculos del documento de la
siguiente manera y en texto plano >>

Pincha aqui - Url http.

Si quieres que la Url aparezca debajo de [ Pincha aqui] cambia el codigo
asi >>

'[]

Sub Url_and_texto()
Dim x As Hyperlink
For Each x In ActiveDocument.Hyperlinks
Selection.TypeText x.Range & vbCrLf & x.Name & vbCrLf
Next
End Sub

donde este el cursor se listara todos los links asi y texto planto>>

pincha aqui
Url http

Comentanos...!

Saludos
Monica

La macro que me propones me da error en "Selection.TypeText x.Name & " - "
&
x.Range & vbCrLf"
En el texto tengo varios enlaces/hipervínculos, por ejemplo,
"Para ir a Google [pincha aquí]" (el hipervínculo entre corchetes)
Para crear este hipervínculo selecciono el texto "pincha aquí", luego
Insertar/hipervínculo; en la línea "Dirección" escribo
http://www.google.es
Bien, así tengo todos los hipervínculos. Lo que necesitaria es para cada
uno
de ellos llegar al siguiente resultado:
[pincha aquí]->pincha aquí (texto del
hipervínculo)-->http://www.google.es (URL del hipervínculo)
y tanto el texto como la URL deben aparecer como texto plano.
Lo he resuelto con un automatizador de tareas (Macro Scheduler) pero el
problema está en que al distribuir el documento los destinatarios no
disponen
de la macro. Por eso me gustaría hacerlo desde el propio Word.

Mónica, voy a probarlo y a reprobar lo anterior, a ver qué pasa. No me había
acordado de lo canallas que son los foros en general a la hora de quitar y
poner saltos de párrafo. Gracias, te tendré al corriente.

Saludos cordiales

"Monica May" escribió:

hola,

Para el error que mencionas:

Ojo -> Cuidado con los saltos al copiar y pegar desde donde estes leyendo
este mensaje...

El codigo anterior te listaba los hipervinculos del documento de la
siguiente manera y en texto plano >>

Pincha aqui - Url http.

Si quieres que la Url aparezca debajo de [ Pincha aqui] cambia el codigo
asi >>

'[]

Sub Url_and_texto()
Dim x As Hyperlink
For Each x In ActiveDocument.Hyperlinks
Selection.TypeText x.Range & vbCrLf & x.Name & vbCrLf
Next
End Sub

donde este el cursor se listara todos los links asi y texto planto>>

pincha aqui
Url http

Comentanos...!

Saludos
Monica


> La macro que me propones me da error en "Selection.TypeText x.Name & " - "
> &
> x.Range & vbCrLf"
> En el texto tengo varios enlaces/hipervínculos, por ejemplo,
> "Para ir a Google [pincha aquí]" (el hipervínculo entre corchetes)
> Para crear este hipervínculo selecciono el texto "pincha aquí", luego
> Insertar/hipervínculo; en la línea "Dirección" escribo
> http://www.google.es
> Bien, así tengo todos los hipervínculos. Lo que necesitaria es para cada
> uno
> de ellos llegar al siguiente resultado:
> [pincha aquí]->pincha aquí (texto del
> hipervínculo)-->http://www.google.es (URL del hipervínculo)
> y tanto el texto como la URL deben aparecer como texto plano.
> Lo he resuelto con un automatizador de tareas (Macro Scheduler) pero el
> problema está en que al distribuir el documento los destinatarios no
> disponen
> de la macro. Por eso me gustaría hacerlo desde el propio Word.

Okeis por aqui estaremos ... y gracias a ti :) !!

Saludos
Monica

Monica, voy a probarlo y a reprobar lo anterior, a ver que pasa. No me
habia
acordado de lo canallas que son los foros en general a la hora de quitar y
poner saltos de parrafo. Gracias, te tendre al corriente.