Ad inizio codice viene aperto una finestra di messaggio (MsgBox) con due pulsanti (OK ed Annulla). Alla pressione del tasto "Annulla" vorrei che venisse chiuso il documento "Senza Nome 1".
Di seguito la prima parte del codice
Codice: Seleziona tutto
Sub CreaOds
dim Doc as object
Dim SceltaIniziale As integer
Doc = ThisComponent
SceltaIniziale = MsgBox ("Prima di iniziare l'installazione del programma, si procederà alla compilazione" & _
" dei dati anagrafici, degli eventuali corpi aziendali presenti in Azienda." & CHR$(10) & _
"Al termine delle operazioni il file verrà chiuso ed al prossimo " & _
"riavvio si potrà procedere con la compilazione del quaderno di campagna" & CHR$(10) & _
CHR$(10) & "ATTENZIONE: l'esecuzione del programma non deve avvenire da un computer " & _
"diverso da quello di prima installazione oppure tramite un collegamento simbolico (link) " & _
"al file, posto sul desktop o in altre posizioni.",1,"Quaderno di Campagna - Operazioni preliminari")
If SceltaIniziale = 2 Then Doc.close(True) 'scelta pulsante "Annulla"
...
Errore di runtime BASIC.
Si è verificata un'eccezione
Type: com.sun.star.lang.DisposedException
Message: .
E' possibile chiudere il documento "Senza Nome 1" senza salvarlo e senza restituzione di errori?
Saluti
Geo