[EMAIL PROTECTED] a écrit :
Bonjour,
Bonsoir,
Est-il possible de créer un raccourci pour faire un collage spécial (par
exemple, ne coller que les nombres), sans être obliger de passer par "collage
spécial", cocher ou décocher tout ce que l'on veut, ce qui est vite fastidieux.
Oui, c'est possible... je me suis posé la même question il y a un
certain temps, et j'avais réussi, mais cela m'avait semblé loin d'être
trivial (coup de chance, cela résiste aux montées de version). J'avais
créé une macro (je pense avec le mode apprentissage) et ensuite je lui
avais affecté une icône et enfin je l'avais ajouté à la barre d'outil
standard.
NB : j'ai recopié le code de la macro en fin de message
Pour plus de détail, ma source était le How-to "Débuter - Comment faire
et utiliser des macros Basic" disponible à cette adresse.
http://fr.openoffice.org/Documentation/How-to/indexht-programmation.html
Même question pour supprimer.
On doit pouvoir utiliser la même méthode...
Merci de vos réponses.
Michel Bertrand
De rien
EC
PS : pendant que je rédigeais ma réponse, j'ai reçu la réponse de Gérard
Laloux ==> je suis d'accord qu'il serait plus logique de n'avoir aucune
case cochée par défaut lorsque l'on active le collage spécial.
================================================
Sub Main
End Sub
sub Coller_valeur
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 = "Flags"
args1(0).Value = "V"
args1(1).Name = "FormulaCommand"
args1(1).Value = 0
args1(2).Name = "SkipEmptyCells"
args1(2).Value = false
args1(3).Name = "Transpose"
args1(3).Value = false
args1(4).Name = "AsLink"
args1(4).Value = false
args1(5).Name = "MoveMode"
args1(5).Value = 4
dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args1())
end sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
