RE: [fr-discuss] Re: [LibO 3.6] Nouveautés : Paste only

Bonjour,

> De : Rafael Laville [mailto:rafael.laville@live.fr]
> Envoyé : dimanche 3 juin 2012 12:21
> À : discuss@fr.libreoffice.org
>
> Le 03/06/2012 12:09, pierre-yves samyn a écrit :
> > Les commandes associées ont rigoureusement le même effet que leur
> > "homologue"
> > du menu Edition>  Collage spécial quand on ne sélectionne qu'un
> attribut.
> C'est bien le problème souligné par Gérard. Il faudrait un raccourci
> "Valeur" équivalent à Texte + Nombre + Dates et heures (je ne parle pas
> des valeurs logiques qui sont hélas traitées comme des nombres).

Comme dans ma façon de travailler j'ai régulièrement besoin de recopier des
valeurs, j'utilise depuis le début la macro ci-après que j'ai associée à un
bouton de la barre d'outils. Du coup j'avais fini par croire que c'était
inclus d'office dans LibO ;)

Bonne journée,
Michel

sub Coller_les_valeurs

rem define variables
dim document   as object
dim dispatcher as object

document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

dim args2(5) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Flags"
args2(0).Value = "SVD"          Rem S= String V= Value D= Date
args2(1).Name = "FormulaCommand"
args2(1).Value = 0
args2(2).Name = "SkipEmptyCells"
args2(2).Value = false
args2(3).Name = "Transpose"
args2(3).Value = false
args2(4).Name = "AsLink"
args2(4).Value = false
args2(5).Name = "MoveMode"
args2(5).Value = 4

dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args2())

end sub



-- 
Envoyez un mail à discuss+help@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/discuss/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés