Extraer URL de un hiperenlace en OpenOffice Calc

Extraer dirección URL de un hiperenlace en OpenOffice Calc

OpenOffice Calc admite insertar hiperenlaces (hiperlinks) en sus celdas. Entre otras propiedades, un hiperenlace consta de un texto (el que se muestra) y una dirección URL (a la que saltamos al hacer clic —o Ctrl+clic— sobre el hiperenlace).

Si el texto mostrado y la dirección URL no coinciden, ¿cómo puedo obtenerla para procesarla en otra celda?

Crearemos una función definida por el usuario (UDF) para resolver elegantemente este problema.

Copia el siguiente código y pégalo en la librería que consideres adecuada en tu editor de macros:

Function ExtraerURL( Hoja as string, Celda as string ) As String
    Dim oCampos As Object, oCampo As Object
    Dim oCelda as object
   
    oCelda = ThisComponent.Sheets.getByName( Hoja ).getCellRangeByName( Celda )
   
    oCampos = oCelda.TextFields
    If oCampos.Count > 0 Then
        oCampo = oCampos(0)
        If oCampo.URL > "" Then
            ExtraerURL = oCampo.URL
        EndIf
    EndIf   

End Function

Paso a paso:

  • Selecciona el código y cópialo (Ctrl+C)
  • Herramientas > Macros > Organizar macros > OpenOffice Basic
  • Selecciona Mis Macros > Standard > Module1 > Botón Editar
  • Pega el código (Ctrl+V)
  • Cierra el editor de macros

Ahora, supongamos que en la celda D5 de la hoja Hoja1 de tu documento Calc tienes insertado un hipervínculo, del cual quieres extraer la dirección URL y que se muestre en la celda F5.

En F5 escribe la siguiente fórmula:

=ExtraerURL( "Hoja1";"D5")

Tanto el nombre de la hoja como el nombre de la celda deben escribirse entre comillas, respetando las mayúsculas y minúsculas.

Ya está. Sencillo, ¿verdad?

No hay reacciones, todavía


Form is loading...