Office - Macros - como guardar un doc.

   
Vista:

Macros - como guardar un doc.

Publicado por gaston (1 intervención) el 16/07/2009 22:59:37
Buenas tardes, tengo un formulario al cual le agregue texto estatico y campos de control desplegables , quiero insertar un boton que diga GUARDAR docuemento y que este se guarde en un directorio del c: , estuve viendo unas macros como esta pero no la entiendo...



Desarrollaremos, ahora, una subrutina para crear un nuevo documento a partir de un plantilla existente. El código fuente Basic, en filas generales, necesita tratar los dos detalles siguien­tes:
a) obtener el camino completo para la plantilla;
b) cargar el archivo, informando a OpenOffice.org que se trata de una plantilla;
La siguiente subrutina Sub creaNuevoDocumento, ejecuta estas tareas apropiadamente.


' -------------------------------------------------
' Crea un nuevo documento a partir de una plantilla
' -------------------------------------------------
Sub creaNuevoDocumento
Dim oDesktop As Variant
Dim oDocumento As Object
Dim mPropArchivo(0) As New com.sun.star.beans.PropertyValue
Dim sUrl As String

' crea el objeto oDesktop
oDesktop = createUnoService("com.sun.star.frame.Desktop")
' define la URL del Archivo modelo, MODIFÍQUELO según su sistema
sUrl = "file:///D:/nad/openoffice/documentation.stw"
' define la propiedad AsTemplate como True (Verdadero)
mPropArchivo(0).Name = "AsTemplate"
mPropArchivo(0).Value = True
' crea el objeto oDocumento
oDocumento = oDesktop.loadComponentFromURL(sUrl,"_blank",0,mPropArchivo())
' INSERTAR CÓDIGO PARA SALVAR AQUÍ
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder