Bonjour,
sur ma 2.4 la ligne args1(0).Value = Cstr(Date) fait obstacle !
Patrick
Samuel Mounier (Liste CGO) a écrit :
sub ajoutdate
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = CreateUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "StringName"
args1(0).Value = Cstr(Date)
dispatcher.executeDispatch(document, ".uno:EnterString", "",
0,args1())
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0,
Array())
end sub
La combinaison de touche que j'ai associé est Ctrl T
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
