Ruta de un hipervinculo ( Ctrl+Alt+K )

14/01/2006 - 18:28 por javier99 | Informe spam
Ruta de un hipervinculo ( Ctrl+Alt+K

Hola a todos:
En una celda ("D4") tengo un hipervinculo ( Ctrl+Alt+K - Insertar/Hipervinculo.../ ) con el texto "madera24". Ese hipervinculo se refiere a un archivo Word. Me pregunto si existe alguna fórmula que me devuelva la ruta completa y el documento al que se refiere dicho hipervinculo.
Es decir, en mi caso me debería devolver algo así:
C:\Documents and Settings\xxx\Escritorio\Prueba002\guiaturistica.do

O si tiene un marcador llamado "mm4"... algo así
C:\Documents and Settings\xxx\Escritorio\Prueba002\guiaturistica.doc#mm

Muchas gracias. Saludos
javie

javier99

Ver este tema: http://www.softwaremix.net/viewtopic-474540.htm

Enviado desde http://www.softwaremix.net

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
15/01/2006 - 08:27 | Informe spam
hola, javier !

Ruta de un hipervinculo (Ctrl+Alt+K)
... ("D4") tengo un hipervinculo (Ctrl+Alt+K - Insertar/Hipervinculo.../) con el texto "madera24"... se refiere a un archivo Word
... alguna formula que me devuelva la ruta completa y el documento al que se refiere dicho hipervinculo
en mi caso me debería devolver algo asi: C:\Documents and Settings\xxx\Escritorio\Prueba002\guiaturistica.doc
... si tiene un marcador llamado "mm4"... algo asi: C:\Documents and Settings\xxx\Escritorio\Prueba002\guiaturistica.doc#mm4



puedes utilizar las propuedades 'Address' y 'SubAddress' de un objeto 'Hyperlinks(1)' ubicado en 'la celda' que lo contiene ;)
solo toma en cuenta que existe la posibilidad de que el hipervinculo este usando la ruta 'relativa'... o 'absoluta' -?-
lo cual 'tendria que'... corregirse [si fuera el caso] tomando la ruta inicial del libro mismo con el hipervinculo [p.e.]
en un modulo de codigo 'normal' ==Sub Direccion_de_Hypervinculo()
Dim Direccion As String, Lugar As String
With Range("d4").Hyperlinks(1)
Direccion = .Address
Lugar = .SubAddress
End With
If Mid(Direccion, 2, 1) <> ":" Then _
Direccion = ActiveWorkbook.Path & "\" & Direccion
If Lugar <> "" Then Lugar = Direccion & "#" & Lugar
MsgBox Direccion & vbCr & Lugar
End Sub

saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida