Bonjour Pierre - Utilisateur d'OOo
Message du 2005-11-15 11:55:
j'essaie de faire avec OpenOffice2 une macro qui copie le contenu
d'une plage, et qui fait ensuite un collage spécial (copie seulement
les nombres) sur une autre plage.
1ère question :
Comment peut-on faire avec l'enregistreur de macros, pour copier des
cellules ? (les autres menus marchent mais pas celui-là, or avec OO1
ça marchait bien !).
Je ne vois pas l'utilité. Ctrl-C fait la copie.
2ème question :
Comment améliorer la macro ci dessous, pour qu'elle fasse un collage
spécial (nombres seuls) et non pas un simple collage ?
Avec l'enregistreur de macros:
sub Main
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
2 messages in org.openoffice.fr.progRe: [prog] Collage spécial (Re: [user...
