Concretaré, la siguiente macro funciona perfectamente en Write
Código: Seleccionar todo
Sub ObtieneRuta
rem obtiene la ruta de la tabla
Dim oTablas As Object
Dim oTabla As Object
Dim oCelda As Object
Dim oCursor As Object
Dim oVCursor As Object
Dim valor
'Todas las tablas del documento
Set oTablas = ThisComponent.getTextTables()
'La tabla que quieras
Set oTabla = oTablas.getByName("Tabla1")
'La celda que quieras
oCelda = oTabla.getCellByName("A1")
rem valor = oCelda.getText()
Ruta = oCelda.getString()
MsgBox oCelda.getString()
Msgbox Ruta
End sub
Código: Seleccionar todo
Set oTablas = ThisComponent.getTextTables()
El error que muestra es:
Error en tiempo de ejecución de BASIC
Propiedad o método no econtrados: getTextTables()