Re: [prog] Affichage d'un cadre dans document texte
Bonjour Agnès, et merci Effectivement, ça marche ! Un petit truc curieux quand même. Comme je l'ai dit dans un message précédent, j'ai 3 cadres dans mon document texte : MonCadre1 , MonCadre_Film, MonCadre2. Jusqu'à ton mail, aucun de ces cadres n'apparaissait. Par contre en ajoutant ta fameuse ligne de code MonCadre1.LayerId = 1 , ce sont les 2 premiers cadres qui apparaissent ! Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Et bien fait, non; ça ne marche pas. En tout cas pas deux fois de suite ! C'est à n'y rien comprendre. En fait, avec ou sans la ligne de code d'Agnès, mes 2 premiers cadre apparaissent lors de la première ouverture du document, ou plutôt devrais-je dire d'un document. Si je relance l'appli, sans avoir quitté et relancé Ooo, mes cadres n'apparaissent plus, quel que soit le document texte ouvert par mon appli ( devis, facture .. ). Si quelqu'un à une idée, je suis preneur. Bien cordialement, Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Bonjour, J'ai fait différents tests dans différents contextes (documents créés par macros, déja existant, déjà ouvert) et mes cadres apparaissent systématiquement, qu'OOo vienne d'être lancé ou non. Pouvez-vous nous donner plus d'information sur le contexte de votre macro : - le type et format des documents utilisés (j'ai fais mes tests sur des documents texte au format ODT) - ces documents existent déjà sur votre poste et sont ouvert par la macro, ou bien sont-ils créés à la volée Avez-vous vérifié que vos cadres étaient bien insérés ? C'est à dire qu'ils sont insérés mais non visibles. S'ils ne sont pas insérés, peut-être qu'au moment de l'insertion, MonDocument ne représente pas le bon document. Cordialement, T. Vataire. - Mail Original - De: Martin Blaizot martin.blai...@wanadoo.fr À: prog@fr.openoffice.org Envoyé: Vendredi 18 Juin 2010 10:13:33 Objet: Re: [prog] Affichage d'un cadre dans document texte Et bien fait, non; ça ne marche pas. En tout cas pas deux fois de suite ! C'est à n'y rien comprendre. En fait, avec ou sans la ligne de code d'Agnès, mes 2 premiers cadre apparaissent lors de la première ouverture du document, ou plutôt devrais-je dire d'un document. Si je relance l'appli, sans avoir quitté et relancé Ooo, mes cadres n'apparaissent plus, quel que soit le document texte ouvert par mon appli ( devis, facture .. ). Si quelqu'un à une idée, je suis preneur. Bien cordialement, Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Bonjour Thibault, Il s'agit d'une macro permettant de visualiser une facture. Le document texte est créé par la macro avec l'instruction suivante : adresseDoc = private:factory/swriter MonDocument = StarDesktop.LoadComponentFromURL(adresseDoc,_blank, 0, propFich) Concernant l'insertion des cadres, je suis plus embêté pour vous répondre car, même quand ils apparaissent dans mon document, je n'arrive ni à les sélectionner ni à atteindre le texte placé à l'intérieur. Encore merci de vous être penché sur mon problème, Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Martin Blaizot a écrit : Et bien fait, non; ça ne marche pas. En tout cas pas deux fois de suite ! C'est à n'y rien comprendre. En fait, avec ou sans la ligne de code d'Agnès, mes 2 premiers cadre apparaissent lors de la première ouverture du document, ou plutôt devrais-je dire d'un document. Si je relance l'appli, sans avoir quitté et relancé Ooo, mes cadres n'apparaissent plus, quel que soit le document texte ouvert par mon appli ( devis, facture .. ). Si quelqu'un à une idée, je suis preneur. Bien cordialement, Martin Bonjour, Dans un doc ouvert si je lance la macro elle affiche bien un cadre. Mais sans le LayerID il n'est pas sélectionnable sauf via le navigateur. Attention, il faut mettre MonCadre1.LayerId = 1 après MonTexte.insertTextContent(Moncurseur, MonCadre1, false) Mais je crois comprendre que tu ouvres un doc par macro, ce doc devant contenir le cadre. On dirait que monDocument n'est pas le bon. Est-ce que tu peux vérifier l'existence du cadre via le navigateur ? Agnès S. - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
De mon coté non plus, je ne parviens pas à sélectionner à la souris les cadres insérés. Il me faut insérer une forme de dessin à partir de la barre de dessin puis naviguer jusqu'a la forme à sélectionner avec la touche tabulation. Quels sont les arguments passé avec propFich ? Pour vérifier si les cadres sont insérés, vous devez analyser le contenu de la collection de formes de dessin de votre document (MonDocument.drawPage). Pouvez-vous mettre en piece-jointe un document sur lequel les cadres n'apparaissent pas. Cordialement, - Mail Original - De: Martin Blaizot martin.blai...@wanadoo.fr À: prog@fr.openoffice.org Envoyé: Vendredi 18 Juin 2010 11:28:25 Objet: Re: [prog] Affichage d'un cadre dans document texte Bonjour Thibault, Il s'agit d'une macro permettant de visualiser une facture. Le document texte est créé par la macro avec l'instruction suivante : adresseDoc = private:factory/swriter MonDocument = StarDesktop.LoadComponentFromURL(adresseDoc,_blank, 0, propFich) Concernant l'insertion des cadres, je suis plus embêté pour vous répondre car, même quand ils apparaissent dans mon document, je n'arrive ni à les sélectionner ni à atteindre le texte placé à l'intérieur. Encore merci de vous être penché sur mon problème, Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Martin Blaizot a écrit : Bonjour Thibault, Il s'agit d'une macro permettant de visualiser une facture. Le document texte est créé par la macro avec l'instruction suivante : adresseDoc = private:factory/swriter MonDocument = StarDesktop.LoadComponentFromURL(adresseDoc,_blank, 0, propFich) Concernant l'insertion des cadres, je suis plus embêté pour vous répondre car, même quand ils apparaissent dans mon document, je n'arrive ni à les sélectionner ni à atteindre le texte placé à l'intérieur. Peux-tu les sélectionner via le navigateur ? (au passage il y a une bétise dans mon mail précédent : bien sûr qu'on sait s'ils sont là ou non puisqu'on les voit). Si oui as-tu accès au contenu après avoir fait DispositionAu premier plan ? Si oui alors c'est bien un problème de layer. Agnès S. - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Martin Blaizot a écrit : Bonjour Thibault, Il s'agit d'une macro permettant de visualiser une facture. Le document texte est créé par la macro avec l'instruction suivante : adresseDoc = private:factory/swriter MonDocument = StarDesktop.LoadComponentFromURL(adresseDoc,_blank, 0, propFich) Concernant l'insertion des cadres, je suis plus embêté pour vous répondre car, même quand ils apparaissent dans mon document, je n'arrive ni à les sélectionner ni à atteindre le texte placé à l'intérieur. Rebonjour, La macro ci-dessous fonctionne. ça peut aider à chercher le problème au bon endroit. REM * BASIC * OPTION EXPLICIT Sub NewDocAvecInsertionCadre dim MonDocument as object, adresseDoc as string dim propFich() Dim MonCadre1 as object dim MonTexte as object, Moncurseur as object Dim Taille1 As New com.sun.star.awt.Size adresseDoc = private:factory/swriter MonDocument = StarDesktop.LoadComponentFromURL(adresseDoc,_blank, 0, propFich) 'MonDocument = thisComponent MonTexte = MonDocument.Text Moncurseur = MonTexte.createTextCursor MonCadre1 = MonDocument.createInstance(com.sun.star.drawing.RectangleShape) Taille1.Width = 8000 Taille1.Height = 3000 With MonCadre1 .Name = le cadre parfois fantome .CornerRadius = 600 .FillColor = RGB (255,255,255) .AnchorType = com.sun.star.text.TextContentAnchorType.AT_PARAGRAPH .VertOrient = com.sun.star.text.VertOrientation.NONE .VertOrientPosition = 1500 .HoriOrient = com.sun.star.text.HoriOrientation.NONE .HoriOrientPosition = 8000 .Size = Taille1 ' .LayerId = 1 End With MonTexte.insertTextContent(Moncurseur, MonCadre1, false) MonCadre1.LayerId = 1 End Sub - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Re-bonjour, Je ne passe aucun argument avec propFich. Juste le code de mon précédent mail. Pour analyser le contenu de la collection de formes de dessin je fais comment ? par macro ? Martin Sans nom 2.odt Description: application/vnd.oasis.opendocument.text - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Bonjour Thibault, Thibault Vataire a écrit : Effectivement, définir la propriété LayerId à 1 permet ensuite de sélectionner les objets à la souris. Petite précision toutefois : il semble que cette modification doive être faite après insertion de la forme dans le document. ce qui semble logique puisque pour mettre quelquechose au premier plan, il faut que le quelquechose soit là. Par contre les formes de dessins insérées par macro n'apparaissent pas dans le navigateur si elles n'ont pas été nommée. Il ne faut donc pas se fier à ce qui est affiché dans le navigateur pour savoir si les formes de dessin ont été insérées ou non. Ah oui, j'avais oublié de préciser que j'avais nommé la forme. Je le fais toujours parce que c'est toujours plus facile à rechercher quand il y a un problème. Effectivement et curieusement OOo ne donne pas un nom par défaut aux formes alors qu'il le fait pour les tableaux, cadres-texte, etc. Agnès S. - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Effectivement, si je nomme mon cadre ( MonCadre1.name = Cadre Client ) Cadre Client apparaît bien dans les objets de dessin du navigateur. Par contre ce qui est curieux c'est qu'il apparaît 5 fois ! Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Martin Blaizot a écrit : Re-bonjour, Je ne passe aucun argument avec propFich. Juste le code de mon précédent mail. Pour analyser le contenu de la collection de formes de dessin je fais comment ? par macro ? Martin Re-rebonjour, Voir macro ci-dessous. Il faut nommer les formes auparavant (MonCadre1.Name = cadre1). Elle recense toutes les formes y compris d'éventuels diagrammes ou autres. '- Sub RechercherFormes dim MonDocument as object dim maPage As Object, uneForme As Object dim n as integer MonDocument = thisComponent maPage = monDocument.DrawPage print nombre de formes : maPage.count for n=0 to maPage.count-1 uneForme = maPage(n) MonDocument.CurrentController.Select(uneForme) print uneForme.Name next End sub '- Agnès S. - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Martin Blaizot a écrit : Effectivement, si je nomme mon cadre ( MonCadre1.name = Cadre Client ) Cadre Client apparaît bien dans les objets de dessin du navigateur. Par contre ce qui est curieux c'est qu'il apparaît 5 fois ! c'est une bizarrerie que j'ai souvent constatée : quand il y a plusieurs formes et qu'une seule a un nom, elles apparaissent toutes avec ce nom dans le navigateur. Conclusion : nommer systématiquement les formes quand on les crée par macro ou à la main (puisqu'OOo ne le fait pas Grrr...) Après inspection de ton document et mise au premier plan puis renommage des formes je vois que tu en a effectivement 5 différentes dont une petite vide sous le tableau. Agnès S. MB_1.odt Description: application/vnd.oasis.opendocument.text - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
RE-re merci pour cette macro. J'ai bien 6 formes dans mon document. 3 cadres théoriquement visibles - 2 invisibles et un logo. Toutes ces formes apparaissent bien dans le navigateur . ci-joint mon document tel qu'il devrait être ( à l'exception du cadre qui devrait être autour de mon tableau Total et qui se ballade ailleurs ). Martin Avec cadres.odt Description: application/vnd.oasis.opendocument.text - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Bonjour, Après avoir analysé votre document, il semble que pour une raison inconnue, le type de ligne sélectionné soit Invisible. Peut être votre macro modifie-elle cette propriété quelque part. Voici un bout de code permettant de réafficher vos cadres : sub test dim index as long dim dp as object dim aShape as object dp = thisComponent.drawPage for index = 0 to (dp.count - 1) aShape = dp.getByIndex(index) if (aShape.shapeType = com.sun.star.drawing.RectangleShape) then dp.getByIndex(index).lineStyle = com.sun.star.drawing.LineStyle.SOLID end if next end sub Pour analyser un object (une collection ou autre), je vous conseille d'utiliser l'outil Xray, disponible ici : http://www.ooomacros.org/dev.php#101416 Cordialement, T. Vataire - Mail Original - De: Martin Blaizot martin.blai...@wanadoo.fr À: prog@fr.openoffice.org Envoyé: Vendredi 18 Juin 2010 12:19:12 Objet: Re: [prog] Affichage d'un cadre dans document texte Re-bonjour, Je ne passe aucun argument avec propFich. Juste le code de mon précédent mail. Pour analyser le contenu de la collection de formes de dessin je fais comment ? par macro ? Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Martin Blaizot a écrit : RE-re merci pour cette macro. J'ai bien 6 formes dans mon document. 3 cadres théoriquement visibles - 2 invisibles et un logo. Toutes ces formes apparaissent bien dans le navigateur . ci-joint mon document tel qu'il devrait être ( à l'exception du cadre qui devrait être autour de mon tableau Total et qui se ballade ailleurs ). Martin Je crois que j'ai compris ! Dans le sans nom 2 que tu as envoyé et le MB1 que je t'ai renvoyé les cadres invisibles le sont parce que la ligne de pourtour est bien définie comme noire mais est marquée invisible. Voir le doc joint où j'ai mis le contenu en rouge J'espère que ça aide. Là je pars au boulot Agnès S. MB_1_1.odt Description: application/vnd.oasis.opendocument.text - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Encore merci Agnès pour le temps que tu as bien voulu consacrer à mon problème. Effectivement la ligne est définie comme invisible; la question est pourquoi l'est-elle dans ce document et pas dans l'autre que j'ai posté alors qu'ils ont été créés tous les 2 par la même macro ? bonne après midi de boulot, A bientôt, Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Thibault, un grand merci à vous également pour le temps passé et pour ce bout de code. En utilisant uniquement la propriété .lineStyle = com.sun.star.drawing.LineStyle.SOLID j'arrive effectivement à contourner le problème. ( je n'utilise pas la totalité de votre routine car il y a 2 cadres qui doivent rester invisibles ). La conclusion semble donc être qu'il faut absolument définir la propriété lineStyle d'un cadre, faute de quoi on est pas certain qu'il soit visible. Bien cordialement, Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
La conclusion semble donc être qu'il faut absolument définir la propriété lineStyle d'un cadre, faute de quoi on est pas certain qu'il soit visible. Non je ne pense pas car de mon coté, les cadres insérés dans un document sont systématiquement visibles. Je pense plutot que votre macro modifie cette propriété d'une façon ou d'une autre. Testez avec cette macro pour vous en assurer : sub main dim const horiPos = 0 dim const width = 8000 dim const height = 3000 Dim MonDocument as object MonDocument = starDesktop.loadComponentFromUrl(private:factory/swriter, _ _blank, _ com.sun.star.frame.FrameSearchFlag.CREATE, _ array()) MonTexte = MonDocument.Text Moncurseur = MonTexte.createTextCursor() MonTexte.insertTextContent(Moncurseur, createFrame(width, height, 1500, horiPos, MonDocument), false) MonTexte.insertTextContent(Moncurseur, createFrame(width, height, 4500, horiPos, MonDocument), false) MonTexte.insertTextContent(Moncurseur, createFrame(width, height, 7500, horiPos, MonDocument), false) end sub function createFrame(width as long, height as long, vertOriPos as long, horiOriPos as long, MonDocument as object) as object Dim Taille1 As New com.sun.star.awt.Size dim MonCadre1 as object MonCadre1 = MonDocument.createInstance(com.sun.star.drawing.RectangleShape) Taille1.Width = width Taille1.Height = height With MonCadre1 .CornerRadius = 600 .FillColor = RGB (255,255,255) .AnchorType = com.sun.star.text.TextContentAnchorType.AT_PARAGRAPH .VertOrient = com.sun.star.text.VertOrientation.NONE .VertOrientPosition = vertOriPos .HoriOrient = com.sun.star.text.HoriOrientation.NONE .HoriOrientPosition = horiOriPos .Size = Taille1 End With createFrame = MonCadre1 end function Par contre, il est étrange que dans votre cas, les cadres soient parfois visible et parfois non. Cordialement, T. Vataire - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Effectivement, votre macro m'ouvre un document writer avec 3 cadres bien visibles. Je ne comprend en effet pas pourquoi ma macro se comporte comme ça. Je vous poste dessous l'intégralité de mon module. C'est un peu long ! si vous avez le courage de le parcourir ... Sinon ce n'est pas grave puisque de toute façon maintenant cela fonctionne. Merci, Martin '= 'Visualisation des factures '= Option Explicit Private Moncurseur as object, MonTexte as object, MaCellule as object, Curseur2 as object Private EtrangerFactureVisual as Boolean, LangueFactureVisual as string Sub Affichage_facture(ID_facture as string,Facture_visual_logo as boolean) Dim matos_conso as boolean, Jour_camion as integer, Cout_peage as double, NB_kilometre as integer Dim Paris as boolean, Livraison as boolean, Prix_Nnovia as double, Nnovia as integer Dim Prix_QP as double, Quatorze_pouce as double, Vingt_pouce as double, Prix_VP as double Dim CT_trans as double, CT as double, Prix_CT as double, Frais_off as integer, NB_frais_off as integer Dim Frais_T as integer, NB_frais_T as integer, NB_off as double, Salaire as integer, NB_Tech as double Dim Titre as string, Client_Select as string, TVAintra as string, montant_accompte as double Dim date_facture as date, N_facture as string, Heures_sup as double, Nombre_heures_sup as integer Dim conso_carburant as double, MonDocument as object, adresseDoc as string, propFich() Dim Date_debutFactureVisual as date, Date_FinFactureVisual as Date, PubFactureVisual as Boolean Dim RemiseFactureVisual as integer, AssurFactureVisual as Boolean, PaiementFactureVisual as string Dim Montant_facture as double adresseDoc = private:factory/swriter 'convention pour indiquer un nouveau document writer MonDocument = StarDesktop.LoadComponentFromURL(adresseDoc,_blank, 0, propFich) 'Récupération de la valeur des champs dans la base Facture' ' Dim maRequete_facturevisual As Object, ResultSet As Object maRequete_facturevisual = maConnexion.createStatement() ResultSet = maRequete_facturevisual.executeQuery(SELECT * FROM Liste_fact WHERE ID=' ID_facture ' If Not IsNull(ResultSet) Then While ResultSet.next Titre = ResultSet.getString(2) Client_Select = ResultSet.getString(3) N_facture = ResultSet.getString(4) Date_debutFactureVisual = ResultSet.getString(5) Date_FinFactureVisual = ResultSet.getString(6) PubFactureVisual = ResultSet.getString(7) RemiseFactureVisual = ResultSet.getString(8) AssurFactureVisual = ResultSet.getString(9) PaiementFactureVisual = ResultSet.getString(10) NB_Tech = ResultSet.getString(11) Salaire = ResultSet.getString(12) NB_off = ResultSet.getString(13) NB_frais_T = ResultSet.getString(14) Frais_T = ResultSet.getString(15) NB_frais_off = ResultSet.getString(16) Frais_off = ResultSet.getString(17) Heures_sup = ResultSet.getString(18) Nombre_heures_sup = ResultSet.getString(19) CT = ResultSet.getString(20) Prix_CT = ResultSet.getString(21) CT_trans = ResultSet.getString(22) Vingt_pouce = ResultSet.getString(23) Prix_VP = ResultSet.getString(24) Quatorze_pouce = ResultSet.getString(25) Prix_QP = ResultSet.getString(26) Nnovia = ResultSet.getString(27) Prix_Nnovia = ResultSet.getString(28) Livraison = ResultSet.getString(29) Paris = ResultSet.getString(30) NB_kilometre = ResultSet.getString(31) Cout_peage = ResultSet.getString(32) Jour_camion = ResultSet.getString(33) conso_carburant = ResultSet.getString(34) date_facture = ResultSet.getString(35) montant_accompte = ResultSet.getString(36) matos_conso = ResultSet.getString(37) EtrangerFactureVisual = Resultset.getstring(39) LangueFactureVisual = Resultset.getstring(40) Montant_facture = Resultset.getstring(43) Wend End if '--- 'Récupération des coordonnées du client '--- Dim Rue as string, CP as string, Ville as string, maRequete_facturevisual2 as object maRequete_facturevisual2 = maConnexion.createStatement() ResultSet = maRequete_facturevisual2.executeQuery(SELECT * FROM Clients WHERE Societe= Quote(Client_Select) If Not IsNull(ResultSet) Then While ResultSet.next Rue = ResultSet.getString(2) CP = ResultSet.getString(3) Ville = ResultSet.getString(4) TVAintra = Resultset.getString(7) Wend End if 'Récupération du vocabulaire dans la base traduction ' Dim Mot_Cfilm as string, Mot_Titre as string, Mot_Datedebut as string, Mot_Datefin as string Dim Mot_Devis as string, Mot_Design as string, Mot_PU as string, Mot_Remise as string Dim Mot_Qtite as string, Mot_Techni_Fact as string, Mot_CineTool as string, Mot_VingtP as string Dim Mot_Quatorze as string, Mot_Livraiso as string, Mot_Heures as string, Mot_Heures2 as string Dim Mot_Hsup as string, Mot_Hnuit as string, Mot_Paiement as string, Mot_BPA as string Dim Mot_CGL as string, Mot_TotalHT as
Re: [prog] Affichage d'un cadre dans document texte
Bonjour, Concernant votre précédent message, avez vous testé ceci : - fermer OOo, y compris le démarrage rapide s'il est actif - déplacer le répertoire de la librairie se trouvant dans votre profil utilisateur vers un autre emplacement - relancer OOo - Menu Outils Macros Gérer les macros OpenOffice.org Basic, bouton Gérer - aller sur l'onglet bibliothèque et choisir Importer - selectionner le fichier script.xlb se trouvant dans le répertoire déplacé précedemment - verifier que la lib à bien été importé. Cela dit, convertir votre macro pour la rendre compatible avec les versions récentes d'OOo est une bonne chose. Pour ce qui est de l'exemple de code que vous nous avez fait parvenir, il fonctionne chez moi si je l'exécute sur un document déjà ouvert. J'ai juste ajouté ces deux lignes au debut : dim MonDocument as object MonDocument = thisComponent Pour info, je suis en 3.2.0 officielle. Cordialement, T. Vataire - Mail Original - De: Martin Blaizot martin.blai...@wanadoo.fr À: prog@fr.openoffice.org Envoyé: Jeudi 17 Juin 2010 08:32:18 Objet: [prog] Affichage d'un cadre dans document texte Bonjour à tous, N'ayant malheureusement pas beaucoup de succès avec ma bibliothèque fantôme, je me suis décidé à porter ma petite appli sous Ooo3.2. Ca avance un peu, mais vous risquez de me voir souvent par ici dans les jours qui viennent ! Je suppose que toutes les erreurs de codage qui pouvaient passer sous 1.1.4 ne passent plus dans les versions modernes. Bref, j'en viens à mon problème du moment. Voici un bout de code qui permettait d'afficher un cadre à bords arrondis. Il ne marche plus, mais je n'ai pas de message d'erreur. Peut-être pouvez-vous m'aider Dim Taille1 As New com.sun.star.awt.Size MonTexte = MonDocument.Text Moncurseur = MonTexte.createTextCursor Dim MonCadre1 as object MonCadre1 = MonDocument.createInstance(com.sun.star.drawing.RectangleShape) Taille1.Width = 8000 Taille1.Height = 3000 With MonCadre1 .CornerRadius = 600 .FillColor = RGB (255,255,255) .AnchorType = com.sun.star.text.TextContentAnchorType.AT_PARAGRAPH .VertOrient = com.sun.star.text.VertOrientation.NONE .VertOrientPosition = 1500 .HoriOrient = com.sun.star.text.HoriOrientation.NONE .HoriOrientPosition = 8000 .Size = Taille1 End With MonTexte.insertTextContent(Moncurseur, MonCadre1, false) D'avance merci, Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Bravo et merci ! L'import à fonctionné. concernant ma migration vers Ooo3.2.0 ( téléchargé hier sur le site ), je n'arrive toujours pas à voir mes cadres. Mes variables étaient bien entendu déclarées, sinon j'aurais un message d'erreur, mais là, rien. Mon document ( une facture ) s'ouvre normalement mais sans les cadres ( il y en a trois en tout ). Donc, à priori, pas d'erreur de codage ( puisque ça marche chez vous ). Peut-être une config d'Ooo ? Pour info les cadres ne s'affichent pas non plus à l'impression. En tout cas, encore merci pour votre aide. Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Martin Blaizot a écrit : Bravo et merci ! L'import à fonctionné. concernant ma migration vers Ooo3.2.0 ( téléchargé hier sur le site ), je n'arrive toujours pas à voir mes cadres. Mes variables étaient bien entendu déclarées, sinon j'aurais un message d'erreur, mais là, rien. Mon document ( une facture ) s'ouvre normalement mais sans les cadres ( il y en a trois en tout ). Donc, à priori, pas d'erreur de codage ( puisque ça marche chez vous ). Peut-être une config d'Ooo ? Pour info les cadres ne s'affichent pas non plus à l'impression. En tout cas, encore merci pour votre aide. Martin Bonsoir Martin, ça me rappelle un problème que j'avais eu dans le passé http://fr.openoffice.org/servlets/ReadMsg?listName=progmsgNo=995 Tente un MonCadre1.LayerId = 1 Agnès S. - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org