Bart Aimar ha scritto:
...mi piacerebbe una macro che crei una nuova finestra e
cancelli la vecchia in automatico!
Sono riuscito ad ottenere del codice funzionante... ma ancora non so se
funziona in tutte le sistuazioni...
-----------------------------------------------
SUB Ripristina_Documento_Traballante
oDoc = ThisComponent
ThisComponent.CurrentController.Frame.setName(_
"vecchia_window")
rem ---------------------------------------------
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService(_
"com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(_
document, ".uno:NewWindow", "", 0, Array())
rem -----------------------------------------------
ThisComponent.CurrentController.Frame.setName(_
"Nuova_window")
dim lnumF as long
lnumF = stardesktop.frames.getCount
For i = 0 To lnumF-1
sNome = stardesktop.frames.getByIndex(i).name
if snome = "vecchia_window" then
stardesktop.frames.getByIndex(i).dispose()
exit for
end if
Next
END SUB
-----------------------
In realtà ci sono arrivato un po' per tentativi... e la situazione non
mi è così chiara...
Quindi se avete idee migliori, suggerimenti o commenti sono i
benvenuti... l'argomento di partenza non è per niente esaurito.
ciao
Bart
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
