Macro para insertar texto en Writer desde Calc

[cjesus]

Buen día!
Les consulto; al seleccionar una celda en mi planilla de calc y presionar un botón quisiera que genere un nuevo archivo de writer con los datos que tomo de las columnas adyacentes a la celda seleccionada, y lo abra para que me permita editarlo.
Hasta ahora, basándome en el libro de Mauricio Baeza Servín he podido abrir el documento;

Código: Seleccionar todo

Sub CreandoNuevosDocumentos1()
Dim sRuta As String
Dim mArg()
Dim oNuevoDocumento As Object
	sRuta = "private:factory/swriter"
	oNuevoDocumento = StarDesktop.loadComponentFromURL( sRuta, "_default", 0, mArg() )
        'aqui necesitaría manipular el archivo writer para insertar texto y, de ser posible, establecer algunos formatos (negrita, centrado, etc.).
End Sub

Espero puedan darme una mano.
Desde ya muchas gracias. Saludos

[fornelasa]

Por ejemplo: si seleccionamos A20
1) Adyacentes pudieran ser todas las columnas pegadas a A20, es decir, tal vez la columna B, C, D, E ....... etc. ¿es así?
2) Me imagino que cuando utilizas el termino "insertar texto" te refieres a pegar los datos de las columnas B, C, D, E ....... de Calc en Writer.

aqui necesitaría manipular el archivo writer para insertar texto y, de ser posible, establecer algunos formatos (negrita, centrado, etc.).

De acuerdo al punto 2 solo puedes copiar los datos de las columnas tal cual están en Calc, ninguna macro podrá manipular los formatos que después quieras insertar, a no ser que los tengas claros y fijos y nos digas cuales son.

Por favor da detalles precisos de tu consulta.

[mauricio]

mejor, un archivo de ejemplo donde se vea lo que se tiene y lo que se quiere obtener...