Bonjour,
J'utilise la la macro suivante pour créer des documents "visibles" ou non;
peut-être cela t'aidera-t-il
Public function create_doc( _visible as boolean )
Dim propFich(0) as New com.sun.star.beans.PropertyValue 'l'index (0) permet
d'indiquer que la variable propFich
' à une propriété particulière, qu'on définit ensuite par son nom (ici"
Hidden") et par sa valeur (ici, TRUE)
propFich(0).Name = "Hidden"
If _visible = true then
propFich(0).value = FALSE
Else
propFich(0).value = TRUE
End if
adresseDoc = "private:factory/swriter" 'convention pour indiquer un nouveau
document writer
MonDocument = StarDesktop.LoadComponentFromURL(adresseDoc,"_blank", 0,
propFich())
End function
Amicalement,
Martin
----- Original Message -----
From: "Fab" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Sunday, June 11, 2006 6:14 PM
Subject: [prog] Fwd: propriete "hidden"
Bonjour,
Dans une macro, je suis amené à ouvrir un certain nombres de fichiers
Writer pour y chercher des informations (comme l'auteur par exemple) avant
des les refermer. J'aimerais bien que cette manipulation soir
transparente, c'est-à-dire qu'on ne voit pas les fichiers s'ouvrir,
surtout que l'affichage systématique de fenêtre ralenti la procédure.
Pour cela, je pensais la propriété "hidden" de l'instruction
"loadComponentFromURL", c'est-à-dire que je tape:
StarDesktop.loadComponentFromURL("nom_du_fichier.odt", "_hidden", 0,
arg(0))
Mais ça ne marche pas. La fenêtre s'affiche.
J'ai aussi essayé avec avec l'objet "dispatcher" en avec les paramètres
suivants:
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
args(0).Name = "URL"
args(0).Value = url
args1(1).Name = "hidden" args1(1).Value = True
et en appelant
dispatcher.executeDispatch(document, ".uno:open", "", 0, args1(1))
mais ça ne marche pas d'avantage.
J'ai l'impression d'avoir tout essayé dans tous les sens, d'avoir cherché
un peu partout, mais impossible d'ouvrir un fenêtre sans qu'elle
s'affiche.
Quelqu'un aurait-il une idée?
Merci beaucoup,
Fabien.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
