Macros para writer (buscar en tablas)

[muni84]

Hola muy buenas. Soy nuevo en la programacion de macros para open-office. He desarrollado alguna macro para word, pero no consigo hacer lo mismo para writer, debo hacer que la macro busque una palabra en la primera celda de cada tabla, y en caso de encontrarla que guarde el contenido de las celdas de la primera fila.

Agradeceria que alguien me ayudase. Muchas gracias.

[FJCC-ES]

Código: Seleccionar todo

Doc = ThisComponent
Tablas = Doc.getTextTables
For i = 0 to Tablas.Count - 1
	Tabla = Tablas.getByIndex(i)
	Cell = Tabla.getCellByPosition(0,0)
	If Cell.String = "aqui" then
		sTexto = "" 
		For x = 0 to Tabla.Columns.Count-1
			Cell = Tabla.getCellByPosition(x,0)
			If sTexto <> "" then
				sTexto = sTexto + " " + Cell.String
			Else
				sTexto = Cell.String
			End if
		Next x
		Print sTexto
	End If
Next i