Bonjour à tous !
Une macro dans le traitement de texte LibreOffice appelée « essais » que je viens de réaliser devrait produire la date du jour dans le format « 8 janvier 2017 ». Lorsque j'appelle cette macro elle produit la date en format nombre à savoir « 42743 » sauf si préalablement au lancement de la macro
j'ai ouvert et fermé sans rien activer la fenêtre « insertion/champs/autres champs ».
Etrange ! Voici le script de la macro :
sub essais
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(5) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Type"
args1(0).Value = 0
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 = 10076
args1(5).Name = "Separator"
args1(5).Value = " "
dispatcher.executeDispatch(document, ".uno:InsertField", "", 0, args1())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertPara", "", 0, Array())
end sub
Qu'est-ce qui manque pour que cela fonctionne comme souhaité ? Merci.
Edit : mise entre balises code
