 | Start a set with this search |
 | Include this search in one of my sets |
 | Exclude this search from one of my sets |
 | Permalink to these results Paste this link in email or IM: |
 | Atom feed for tracking future search results Paste this URL into your reader: |
7 messages in org.openoffice.fr.progRe: [prog] Changement de comportement...| From | Sent On | Attachments |
|---|---|---|
| fabs...@wanadoo.fr | May 21, 2009 12:51 am | |
| Francois Gatto | May 21, 2009 11:06 am | |
| fabs...@wanadoo.fr | May 23, 2009 7:14 am | |
| Didier Dorange-Pattoret | May 24, 2009 12:29 am | |
| Francois Gatto | May 24, 2009 8:31 am | |
| fabs...@wanadoo.fr | May 25, 2009 4:59 am | |
| Laurent Godard | May 25, 2009 5:32 am |
| Permalink for this message Paste this link in email or IM: |
| Permalink for this thread Paste this link in email or IM: |
| Atom feed for this thread Paste this URL into your reader: |
| Subject: | Re: [prog] Changement de comportement dans OOo3.1 | Actions... |
|---|---|---|
| From: | fabs...@wanadoo.fr (fabs...@wanadoo.fr) | |
| Date: | May 23, 2009 7:14:16 am | |
| List: | org.openoffice.fr.prog | |
Le Thursday 21 May 2009 22:07:08 Francois Gatto, vous avez écrit :
Bonsoir,
Je pense qu'en codant directement au moyen des API le problème pourrait être solutionné.
Merci pour le code. Mais je ne sais pas si je vais pouvoir l'adapter si facilement. Ca ne fait pas tout à fait la même chose: le soulignage se fait après coup et il faut savoir combien de mots souligner, ce qui peut être variable dans mon cas (chaîne de caractère définie par l'utilisateur)... En tout cas, merci quand même.
Mon enregistreur de macros me fournit le code suivant : 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(2) as new com.sun.star.beans.PropertyValue args1(0).Name = "Underline.LineStyle" args1(0).Value = 1 args1(1).Name = "Underline.HasColor" args1(1).Value = false args1(2).Name = "Underline.Color" args1(2).Value = -1
dispatcher.executeDispatch(document, ".uno:Underline", "", 0, args1()) end sub
Le mien aussi. J'ai un peu épuré dans mon mail précédent pour garder ce dont j'avais besoin. Ce qui change entre OOo3.0 et OOo3.1, c'est le nom "Underline.LineStyle" qui était avant "Underline.Underline"
Quelqu'un sait-il comment récupérer la version d'OOo par code pour contourner le problème?
Fabien.
Problème: cet argument n'est pas reconnue dans les versions antérieures de OOo...
D'où ma question: il y a-t-il moyen de faire fonctionner cette procédure dans toutes les versions d'OOo?
Merci,
Cordialement,
Fabien.
Francois Gatto
-- Fabien Skraber www.gestionnaire-exos.fr