[RESUELTO] Guardar documento Writer desde Base
Publicado: Mar Dic 19, 2017 1:53 pm
Hola,
He creado esta macro con el grabador. Desde Base tengo un botón que me abre un writer y esta macro debería guardar el documento, pero al ejecutarlo desde base lo que me guarda es el formulario y no el nuevo documento creado. Creo que el error está en esta línea, pero no solucionarlo por más que busco.
Gracias.
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///C:/Users/MiPC/Desktop/OOoBasic%20Combinar%20texto/11111.odt"
args1(1).Name = "FilterName"
args1(1).Value = "writer8"
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())
He creado esta macro con el grabador. Desde Base tengo un botón que me abre un writer y esta macro debería guardar el documento, pero al ejecutarlo desde base lo que me guarda es el formulario y no el nuevo documento creado. Creo que el error está en esta línea, pero no solucionarlo por más que busco.
Gracias.
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///C:/Users/MiPC/Desktop/OOoBasic%20Combinar%20texto/11111.odt"
args1(1).Name = "FilterName"
args1(1).Value = "writer8"
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())