[RESUELTO] Macro para extraer hipervinculos en Cal

[27salinas]

hola,
como último recurso estoy extrayendo los hipervínculos que necesito con Excel y este macro, los pone todos en la columna de la derecha, para ello utilizo un pc viejo que tiene un XP instalado:

Sub extrae_enlaces()
For Each Hyp In ActiveSheet.Hyperlinks
Hyp.Range.Offset(0, 1) = Hyp.Address
Next Hyp
End Sub

Quería hacer lo mismo con Libre Office Cal y no encuentro ninguna macro, si me dijeran donde buscar o como modificar me sería de gran ayuda.
Tengo Libre Office Cal Versión: 4.2.8.2
Ubuntu 14 LT
gracias

[fornelasa]

Una posible alternativa en este archivo ejemplo:

Código: Seleccionar todo

Sub Extraer
	oDoc = ThisComponent
	tccc = oDoc.currentcontroller
	hoja = tccc.activesheet
  oRango = oDoc.GetCurrentSelection.GetRangeAddress
	pCol = oRango.EndColumn + 1
   Rango = Hoja.GetCellRangeByPosition(oRango.StartColumn, oRango.StartRow, pCol, oRango.EndRow)
   Filas = (Rango.Rows.Count - 1)
 On Error Resume Next
		 For i = 0 To Filas
			Rango.getCellByPosition(1,i).String = Rango.getCellByPosition(0,i).Text.TextFields.GetByIndex(0).Url
		 Next 
End Sub

[27salinas]

Gracias fornelasa por la respuesta.
Edito ya que me adelanté al comentar que me daba error,
Mañana lo pruebo, me equivoqué al hacer una prueba.
saludos

[fornelasa]

ok .....
La macro funciona para una columna a la vez.

[27salinas]

Edito para comentar que el ejemplo tuyo funciona perfectamente.
Y también los que yo tengo.
De modo que problema resuelto, edito primer tema.
Muchísimas gracias.
p.d mis conocimientos son muy básicos y no podría aportar gran cosa a este foro, pero si alguno de uds necesita ayuda sobre Apicultura tenemos una Comunidad donde serán recibidos y se resolverán sus dudas. No pongo aquí enlace, seguramente no será conveniente pero contacten conmigo .
Saludos cordiales