openoffice Guardar documento.

[elmesiasahora]

> > Viendo unos informes pude armar este escript para
> guardar el doc., el tema
> > es el siguiente :
> >
> > Si yo agrego esta macro al boton de la planilla "Guardar" me abre un doc demo1.sxw pero un docuemnto nuevo, no el que
> quiero manipular...

Sub AbriendoGuardandoDocumentos4()
Dim sRuta As String
Dim mOpciones(0) As New
"com.sun.star.beans.PropertyValue"
Dim oDoc As Object

sRuta =
"private:factory/swriter"
oDoc =
StarDesktop.loadComponentFromURL( sRuta, "_blank", 0,
mOpciones() )

'Establecemos la ruta y nombre donde se guardara el archivo
sRuta = ConvertToUrl( "C:\Documents and
Settings\gperez\Escritorio\colores\cierre\demo1.sxw" )

'Guardamos el archivo
oDoc.storeAsURL(
sRuta, mOpciones() )

End Sub