Salve sono un artigiano
per gestire il mio lavoro uso openoffice 1.1.3
ho scritto delle macro con varie finestre di dialogo per automatizzare
il tutto.
Ho provato ad istallare la versione 2, ma una macro non funziona più.
Per chiudere un documento ed OO ho registrato questa macro
Sub Fine
Dim Documento As Object
Dim dispatcher As Object
oDialog2.endExecute()
Documento = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(Documento, ".uno:Quit", "", 0, Array())
End Sub
con 1.1.3 funziona con la 2 non chiude il documento
ho provato, come suggerito in una risposta in questo forum, ad usare
Documento.close(true)
ma mi da un errore
dimenticavo una macro analoga a questa ma con Save al posto di Quit funziona
regolarmente
vi ringrazio per l' attenzione
berna
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
