gmane.comp.openoffice.devel.french

TrombinOOo

Rémi B — 2008-09-04T21:09:10

Bonjour, Je viens de terminer un ensemble de macros StarBasic pour Writer permettant de générer automatiquement un trombinoscope. Merci à ceux qui m'ont aidé et au livre "programmation OOo 2". Cette macro est davantage destinée à un contexte éducatif (classe en école, collège, lycée...). Cependant, des détournements d'usage peuvent peut être donner lieu à des applications relativement utiles. Vous la trouverez ici : http://rboulle.free.fr/educooo/trombinOOo_v1.2.odt Attention, rien de bien transcendant (c'est ma première "longue" macro en plus) mais par contre je suis preneur de toute remarque sur le code ou autre pour l'améliorer. Merci. Rémi.

redimensionner image JPG par macro

Rémi B — 2008-09-01T21:22:34

Bonjour, Comment faire pour récupérer les dimensions d'une image au format *.jpg par macro basic ? Pour l'instant, j'arrive à obtenir quelque chose avec un code comme : oImage = ThisComponent.createInstance ("com.sun.star.drawing.GraphicObjectShape") oImage.GraphicURL = "/home/remi/test.jpg" print oImage.getsize().width sauf que la dernière instruction renvoie 100. Idem pour la hauteur alors que l'image n'est pas carrée... Une idée ? Avec un fichier BMP, le script suivant fonctionne : Sub resizeImageByWidth(uneImage As Object, largeur As Long) Dim leBitMap As Object, Proportion As Double Dim Taille1 As New com.sun.star.awt.Size LeBitmap = uneImage.GraphicObjectFillBitmap Taille1 = LeBitMap.Size ' taille en pixels ! Proportion = Taille1.Height / Taille1.Width Taille1.Width = largeur ' largeur en 1/100 de mm Taille1.Height = Taille1.Width * Proportion uneImage.Size = Taille1 End Sub d'après l'API, GraphicObjectFillBitmap est DEPRECATED : http://api.openoffice.or

base: activation de formulaire

Michel Gardie — 2008-08-29T09:35:19

Bonjour Voici mon problème (volontairement très simplifié) concernant la programmation de formulaires sous Base. Disons que je possède deux tables Table1 et Table2. Chaque table contient quelques champs. La table 1 contient un champ dénommé num1 et la table 2 contient un champ num2. Je crée tout d'abord un formulaire pour accéder à la table 1. J'ai utilisé pour cela l'assistant de formulaire. Pour faire vite. Je dispose ainsi d'un document dans lequel se trouve un formulaire associé à la table 1 ; les données sont présentées sous la forme de champs. Je dispose donc d'un champ formaté correspondant au champ num1. J'ai rajouté dans ce document un formulaire correspondant à la table 2. Les données sont cette fois présentées sous la forme d'une table. Je souhaite pouvoir cliquer sur une des lignes de cette table et extraire ainsi une valeur (celle de num2) qui sera injectée dans le champ num1. J'arrive bien à extraire une valeur de la table, mais je bloque sur l'insertion de

Extension Zotero et OOO300

Jean-Baptiste Faure — 2008-08-28T20:04:31

Bonsoir, est-ce que quelqu'un a réussi à utiliser l'extension zotero pour OOo (http://www.zotero.org/) sur une version de développement ? Chez moi la fonction "Insert Citation" plante avec une erreur de basic dans OOO300_m3 alors qu'elle fonctionne dans OOo 2.4.1 Bonne soirée JBF

Trier les données dans un Array via Dir

Rémi B — 2008-08-26T08:32:14

Bonjour, Avec la commande Dir(Repertoire_a_lister & "/*.jpg" , 0), on peut récupérer les noms de fichiers jpg. Ensuite, si j'ai bien compris, chaque appel à la fonction Dir() renvoie le nom d'un autre fichier. Je ne voit pas du tout dans quel ordre il va les chercher. J'ai l'impression que c'est aléatoire (pas par taille, ni par date...). Quelqu'un pourrait confirmer/infirmer ? Merci :-) Je souhaiterais stocker tous ces noms dans un Array (faisable) et ensuite ordonner des données dans l'ordre croissant. Par exemple, mon array avec index 0 : img_145.jpg index 1 : img_001.jpg deviendrait : index 0 : img_OO1.jpg index 1 : img_145.jpg Comment faire ce "sorting" ? Suis-je sur une mauvaise piste ? :-s L'idée est ensuite de remplir un tableau dans un document writer avec ces images dans le "bon" ordre. C'est pour faire un trombinoscope. Merci beaucoup. Rémi.

un texte dans un "TextShape"

Christophe Devalland — 2008-08-25T14:10:21

Bonjour, dans un document "writer", mon curseur visible est dans un objet de dessin de type texte (TextShape). Je récupère le curseur comme partout : CurseurVisible=ThisComponent.getCurrentController.getViewCursor Mais impossible d'appliquer les méthodes habituelles pour retrouver le texte : monTexte=CurseurVisible.Text ne fonctionne pas (Null), je ne peux donc pas créer de curseur pour extraire le texte de ce cadre. Est-ce possible, je n'ai rien trouvé dans "Programmation OOo 2" ? Merci encore

Activer le bouton "options" du gestionnaire d'extension

Christophe Devalland — 2008-08-25T07:57:53

Bonjour, depuis OOo 2.3, il y a la possibilité de définir des préférences pour une extension : possibilité pour m'en servir, parce que les spécifications me sont assez obscures ! Il me faudrait un genre de "hello world". Quelqu'un a-t-il ça ? J'ai regardé les extensions les plus récentes sur le site officiel mais je n'en ai pas trouvé qui utilisait cette possibilité. En connaissez-vous ? merci d'avance

Associer bouton à EDI Basic

Rémi B — 2008-08-24T13:25:55

Bonjour, La réponse doit être sous mes yeux mais je ne la vois pas... On arrive à exécuter une macro en cliquant sur un bouton inséré dans un document (via formulaire) mais pas à simplement l'éditer en faisant se lancer l'EDI. Comment pourrais-je faire ? Peut-être exécuter une macro qui lance l'EDI ? Merci. Rémi.

Erreurs de link avec XCode

Jean-Luc — 2008-08-06T10:32:34

Bonjour à tous, Je suis nouveau dans cette liste de discussion, et je ne sais pas trop comment m'y prendre. Et surtout à qui m'adresser. Mon problème est, des erreurs de link avec XCode et les libraires de OpenOffice. J'ai regardé sur les forums anglais d'OpenOffice mais je n'ai pas trouvé de solution. Je résume, J'ai écrit une extension en C++ sur Windows pour OpenOffice 2.4 avec le sdk 2.4, là, compilation, linkage, aucun de problème. j'aimerai porter cette extension sur Mac pour le nouvel OpenOffice 3.0 natif cocoa. J'ai téléchargé le sdk 'OOo-SDK_3.0_macosxi_install_en-US.dmg' intel du site 'ftp://ooopackages.good-day.net/pub/OpenOffice.org/MacOSX" et le OpenOffice.org associé. Après son installation j'ai créée l'environnement (utile??) via le script 'setsdkenv_unix' et les 'headers' cpp à partir du fichier 'types.rdb' avec l'outil cppumaker. Jusqu'ici tout va bien . Puis j'ai créé un projet XCode et apr

Export de zone de groupe

pascal.brognez — 2008-07-23T17:14:19

Bonjour, Un collègue m'a posé une question à laquelle je ne sais pas répondre. Vous pouvez aussi lui répondre directement yves.deschamps< at >univ-lille1.fr A+

Export de zone de groupe

pascal.brognez — 2008-07-23T12:48:36

Bonjour, Un collègue m'a posé une question à laquelle je ne sais pas répondre. Vous pouvez lui répondre directement yves.deschamps< at >univ-lille1.fr > Voici la question ... Le rapport ne fonctionnant pas mieux... > > Existe-t'il un moyen de conserver dans un document exporté en ".doc" > > une "zone de groupe" construite dans Writer... ? > > Merci de ton aide. > > -- > Yves Deschamps > Coordinateur O++, CRI Etudes et Développements > Bâtiment M4 > Tel : 03 20 43 41 89 > Fax : 03 20 43 66 25 A+

[doc] Écrire une extension OpenOffice.org avec Python

Frederic Peters — 2008-07-21T07:55:47

Bonjour, Il m'est arrivé de poser quelques questions à la communauté, principalement sur les listes anglophones il est vrai, et j'avais promis en retour de partager ce que j'apprenais, je viens ainsi de terminer une petite documentation sur l'écriture d'une extension avec PyUNO. L'idée y était d'avoir une extension simple, prenant un à un différents aspects que j'ai rencontré lors de mes développements, pour ne pas surcharger le lecteur de points annexes. Elle est publiée à cette adresse, il y a possibilité d'y laisser des commentaires en cas d'erreurs (ou pour suggérer d'autres approches, mes développements ayant été fait de manière plutôt empirique) : http://www.0d.be/docs/ecrire-une-extension-openoffice-avec-python/ Frédéric

desactiver l'entée 'rétablir' du menu 'editer' de calc

Christian Lejeune — 2008-07-21T07:41:48

Bonjour. J'ai écrit des programmes ooobasic qui mettent à jour une feuille calc protégée par mot de passe. Avant la mise à jour,la commande 'unprotect' permet la mise à jour puis la feuille est de nouveau protégée par la commande 'protect' Le problème est que l'entrée 'rétablir' du menu 'éditer' permet de déprotéger la feuille, ce que je ne souhaite pas. Par programmation ooobasic, je veux désactiver l'entrée 'rétablir' du menu 'editer' d'openoffice calc. Merci pour votre aide

Enregistrement de base

François Breizh — 2008-07-20T15:05:50

Bonjour, J'utilise Openoffice 2.4.1 sur Ubuntu 8.04.1 (je viens de migrer de 7.10 à 8.04) et je n'arrive plus à déclarer mes bases de données : j'utilise le formulaire d'enregistrement, mais les déclarations ne sont pas prises en compte. Il n'y a pas de message d'erreur. Y a-t-il un paramètre d'environnement à modifier ?

Bug sur les boites de dialogues sous Ubuntu

christianwtd — 2008-07-13T11:25:40

Bonjour à toutes et tous, Je suis en train de migrer avec plaisir vers Ubuntu et je viens de tomber sur un os. Voila : Nouveau classeur, nouveau module, nouvelle boite de dialogue... bref, tout neuf ! On modifie la taille de la boite de dialogue à la souris. On sauvegarde le classeur. A l'ouverture, la taille de la boite de dialogue revient à la taille initiale. Les modifs par macro ne sont pas concluantes. L'exemple simplifié (http://ooo.developpez.com/faq/?page=Dialog) ne marche pas (ou mal) : Sub AfficherBoiteDialogue DialogLibraries.LoadLibrary( "Standard" ) 'Dialog1 est le nom de la Form (Clic droit sur l'objet / propriétés / onglet Général / Nom) oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 ) ' 'Attribue un titre dans la fenêtre odialog1.Title = "Le titre" ' 'Modifie la couleur de fond de la boîte de dialogue oDialog1.Model.BackgroundColor = RGB(235,235,125) ' 'Redéfinit les dimensions de la boîte de dialogue oDialog1.Model.Height = 200 'Haute

Caractères spéciaux

Rémi Angot — 2008-07-12T20:09:30

Comment ajouter un caractère spéciale dans une macro en Basic dont on connait la référence de type U+2212 ? Merci Rémi Angot

problème avec les boites de dialogue

2008-07-12T08:30:15

Bonjour, Je suis en train de reprendre une macro écrite avec une précédente version d'OOo (j'ai actuellement la 2.4.1, installée sur Kubuntu hardy) et j'ai constaté quelques problème avec la gestion des boîtes de dialogue. Si je fais un copier-coller d'un objet d'une boite de dialogue, OOo plante au moment de coller. D'autre part, j'ai voulu exporté la bibliothèque contenant les boites de dialogue pour les importer dans un fichier .odt, et après import, les titres des objets que j'avais modifiés(par rapport à l'ancienne version de la macro) sont changés. Par exemple, un bouton dont le titre était "Afficher les annexes" est devenu "&2232.Dialog2.Annexes.Label". J'ai envoyé le compte rendu de bug pour le premier problème. Si quelqu'un confirme le 2nd bug, est-il possible d'ouvrir une issue si ce n'est déjà fait (ou m'expliquer comment faire)? Fabien.

Fonction au milieu d'un texte

Rémi Angot — 2008-07-11T13:41:16

Bonjour à tous, c'est mon premier mèl sur cette liste. Pour me présenter rapidement, je m'appelle Rémi Angot, j'ai 28 ans et je suis prof de maths. Je souhaiterai écrire un texte avec Writer dans lequel je mettrai au milieu du texte des $ma_fonction(a)$ où ma_fonction() est une fonction en Basic qui renvoi un texte (ou un nombre). Je compte avoir plusieurs fonctions différentes. Un peu comme un champ mais je ne crois pas que les champs permettent de les personnaliser à ce point. Je souhaite donc faire une macro qui cherche tous mes $mes_fonctions()$ et qui les remplace par le résultat de la fonction. Est-ce que quelqu'un connait une méthode pour réaliser cela simplement ? Quel genre d'algorithme mettre en place ? J'ai bien pensé faire une recherche d'expressions régulières mais ça me parait compliqué. Avez-vous une idée ? Merci. Rémi Angot http://maths.clarensac.net

copie tableau

abel — 2008-07-10T17:08:43

Bonjour, Je m'essaie à la programmation avec Oo2, je voudrais aller à la fin du document, sauter une ligne et recopier un tableau qui existe déjà. Tout va bien pour aller en fin de document et sauter une ligne mais pour recopier le tableau j'ai une erreur que je ne comprends pas . Voici le message d'erreur Runtime error BASIC. Une exception s'est produite : Type : com.star.uno.RuntimeException Message : SwXTextTable: already attached to range .. Voici le texte de la macro : REM ***** BASIC ***** Option Explicit sub new_cadre() dim mondocument as object dim monTexte As Object dim curseurVisible as Object dim monCurseur as object dim saut as Integer dim maTable as Object rem ------------------------- monDocument = ThisComponent monTexte = monDocument.Text curseurVisible = monDocument.CurrentController.ViewCursor saut = com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK monCurseur = monTexte.createTextCursor rem ------------------------- curseurVisible.jumpToLastPage curseurVisible.jumpToEndOfPage

Information sur le "treecontrol"

JMD — 2008-07-10T08:03:28

--------------------------------------------------------------------- To unsubscribe, e-mail: prog-unsubscribe< at >fr.openoffice.org For additional commands, e-mail: prog-help< at >fr.openoffice.org

Lenteur sur 3 instructions

Michel Grentzinger — 2008-07-08T15:52:20

Bonjour, Dans mon classeur qui me sert à gérer un cross, j'ai des soucis de temps d'exécution. Avec une exécution pas à pas, j'ai identifié 3 points de freeze... il s'agit de : oCellule.Value = dTempsCoureur oCellule.NumberFormat = nFormatId oCelluleHeure.Value = dHeureArrivee Le code pour formater la cellule peut être enlevé mais ça ne résoud pas mon problème complètement... Je ne comprend pas cette lenteur car il me semble qu'avec OOo version 2.2 et antérieure, je n'avais pas ce soucis. J'ai testé sous Linux Debian, Ubuntu et Windows avec OOo version 2.4 et le comportement est similaire. D'où ce problème peut-il venir et est-ce possible de le contourner ? Ci-dessous, la macro déclenchée par un bouton. Sub ArriveeCoureur() Dim oDocument As Object, oControleur As Object, oFeuille As Object Dim oCellule As Object, oCelluleFocus As Object, oCelluleHeure As Object Dim dHeureArrivee As Date, dHeureDepart As Date, dTempsCoureur As Date oDocument = ThisComponent oControleur