Página 1 de 1

Macro para insertar texto en Writer desde Calc

Publicado: Vie Jul 13, 2018 3:19 pm
por 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

Re: Macro para insertar texto en Writer desde Calc

Publicado: Vie Jul 13, 2018 4:57 pm
por 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.

Re: Macro para insertar texto en Writer desde Calc

Publicado: Vie Jul 13, 2018 5:58 pm
por mauricio
mejor, un archivo de ejemplo donde se vea lo que se tiene y lo que se quiere obtener...