Bonjour à tous,
J'avais moi-même posé la question sur la liste.
Je crois avoir trouvé une réponse qui fonctionne si l'éditeur de macros
est fermé.
Elle utilise l'API de windows.
Declare Function GetActiveWindow Lib "user32" () As Long
Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
Sub Essai
rem on récupère le handle de la fenêtre active. On suppose que c'est
une fenêtre OOo
hWnd = GetActiveWindow()
rem on ferme toutes les fenêtres OOo actives.
On error resume Next
myEnum = StarDesktop.Components.CreateEnumeration
Do while myEnum.HasmoreElements
oDoc = myEnum.NextElement
If HasUnoInterfaces(oDoc, "com.sun.star.util.XCloseable") Then
oDoc.close(true)
Else
oDoc.dispose()
End If
Loop
On error goto 0
rem l'API de windows ferme le quickstarter
ExitProcess(hWnd)
End Sub
Didier Dorange-Pattoret
www.dmaths.org
PS: si cela fonctionne j'en ferai un code snippet.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
