En fait j'ai fait une autre macro. Plutôt que de faire Insertion/Champ/Heure, j'ai fait Insertion/Champ/Autre puis dans la boîte de dialogue j'ai choisi Heure - Heure fixe - HH:MM. Autrement dit, j'ai ouvert la boîte de dialogue des champs pour choisir ses propriétés AVANT d'insérer le champ --- plutôt que de modifier ses propriétés APRES l'avoir inséré.
Le code généré était différent:
1ère macro:
**********
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertPara", "", 0, Array())
rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:InsertTimeField", "", 0, Array())
rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:FieldDialog", "", 0, Array())
*** Ce qui ne fait rien, même en enlevant les commentaires.
[^] # Re: Pb de macros dans OOo
Posté par fog . En réponse au journal Pb de macros dans OOo. Évalué à 2.
En fait j'ai fait une autre macro. Plutôt que de faire Insertion/Champ/Heure, j'ai fait Insertion/Champ/Autre puis dans la boîte de dialogue j'ai choisi Heure - Heure fixe - HH:MM. Autrement dit, j'ai ouvert la boîte de dialogue des champs pour choisir ses propriétés AVANT d'insérer le champ --- plutôt que de modifier ses propriétés APRES l'avoir inséré.
Le code généré était différent:
1ère macro:
**********
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertPara", "", 0, Array())
rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:InsertTimeField", "", 0, Array())
rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:FieldDialog", "", 0, Array())
*** Ce qui ne fait rien, même en enlevant les commentaires.
2ème macro
**********
rem ----------------------------------------------------------------------
dim args1(5) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Type"
args1(0).Value = 1
args1(1).Name = "SubType"
args1(1).Value = 0
args1(2).Name = "Name"
args1(2).Value = ""
args1(3).Name = "Content"
args1(3).Value = "0"
args1(4).Name = "Format"
args1(4).Value = 5040
args1(5).Name = "Separator"
args1(5).Value = " "
dispatcher.executeDispatch(document, ".uno:InsertField", "", 0, args6())
*** et ça, ça marche !!!