Bon,
je n'ai qu'un problème c'est ma macro fonctionne en mode absolu je ne
sais pas comment enregistrer une macro en mode relatif.
Le code est en fin de message pour info.
Il y a surement d'autres moyens ...
(là c'est un peu "gros bourrin " mais les bourrins sont sympathiques !)
Dans le principe :
Je déclenche la macro "Date" en affectant la macro à un raccourci clavier.
La macro :
Je démarre l'enregistrement
On écris " =aujourdhui() " et on valide
On copie la date avec les icônes de la barre d'outils
On colle avec les icônes de la barre d'outils en déroulant les options
et on choisi "Texte formaté [RTF]
On arrête la macro
Le seul problème donc c'est que la macro se lance (d'une manière ou
d'une autre) là où se trouve la sélection !....
Patrick
sub Date
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(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$F$15"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "StringName"
args2(0).Value = "=AUJOURDHUI()"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())
rem ----------------------------------------------------------------------
dim args4(1) as new com.sun.star.beans.PropertyValue
args4(0).Name = "By"
args4(0).Value = 1
args4(1).Name = "Sel"
args4(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoUp", "", 0, args4())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
rem ----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "SelectedFormat"
args6(0).Value = 10
dispatcher.executeDispatch(document, ".uno:ClipboardFormatItems", "", 0,
args6())
end sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
