RE: [prog] Entete et pieds de page

[Cezame Concept]

Mon problème réside justement aux longueurs de chaines … l’ensemble des trois parties ne tiens pas dans la majorité des cas sur une ligne …   Puis cela pose un problème de mise en forme du document ! Si la chaine est trop courte la partie droite se retrouvera au milieu du document et non collée a droite !!   Je suis entrain également de chercher pour insérer des champs prédéfinis tels que les N° de page / Nb Pages dates ….   J’ai l’impression que mon problème réside dans les curseurs sinon je ne vois pas pourquoi il existe les fonctions … FooterTextRight et FooterTextleft   Merci pour votre aide !   De : [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Envoyé : mercredi 12 avril 2006 10:18 À : prog@fr.openoffice.org Objet : RE: [prog] Entete et pieds de page   Bonjour,   D'après ce que j'ai vu dans un entête et un pied de page, je pense que la solution consiste à utiliser les tabulations. Celle-ci sont d'ailleurs pré-définies lorsque l'on insère un entête ou un pied de page (il suffit de regarder dans la règle pour les voir).   Pour appliquer cela à ton besoin, tu devrais créer une seule chaîne de texte et séparer simplement chaque partie (gauche, centre et droite) par une tabulation (c'est-à-dire un \t ). Cela ne marchera que si les chaînes ne sont pas trop longues et ne viennent pas empiêter au delà de chaque partie (comme pour toute tabulation).   Cordialement, Emmanuel   De : Cezame Concept [mailto:[EMAIL PROTECTED] Bonjour ...   Tout d'abord merci pour tes informations ...   J'ai appliqué les infos trouvées sur les liens que tu m'a envoyé ...   J'ai progressé puisque sous oOWriter j'arrive a créer un pied de page. Cependant je n'arrive pas a gérer les parties du pied de page a savoir droite gauche et centre ... comme je pourrais la faire sous Office ...   Ci-dessous le code que j'utilise ... Je pense qu'il s'agit d'un problème de curseur mais je ne trouve pas la solution :   Sub InsererUnPiedDePage(ByVal sTexteCentre As String, ByVal sTexteDroite As String, ByVal sTexteGauche As String)         Dim monTexte As Object, monCurseur As Object         Dim TexteCentre As Object, CurseurCentre As Object         Dim TexteDroite As Object, CurseurDroite As Object         Dim TexteGauche As Object, CurseurGauche As Object           Dim nomStyleMaPage As String, StyleMaPage As Object         Dim lesStylesPage As Object         monTexte = oDocument.Text         monCurseur = monTexte.createTextCursor         ' récupérer le nom du style de page en cours         nomStyleMaPage = monCurseur.PageStyleName         'print "Cette page est du style : " & nomStyleMaPage         ' récupérer la collection de styles de pages         lesStylesPage = oDocument.StyleFamilies.getByName("PageStyles")         ' récupérer le style de la page en cours         StyleMaPage = lesStylesPage.getByName(nomStyleMaPage)         With StyleMaPage             .FooterIsOn = True ' insérer un pied de page             .FooterBodyDistance = 1000 ' 10 mm             .FooterHeight = 2500 ' 25mm             TexteCentre = .FooterText ' zone de texte centre du pied de page             TexteDroite = .FooterTextRight ' zone de texte droite du pied de page             TexteGauche = .FooterTextLeft ' zone de texte gauche du pied de page         End With         CurseurCentre = TexteCentre.createTextCursor ' curseur centre dans le pied de page         CurseurDroite = TexteCentre.createTextCursor ' curseur centre dans le pied de page         CurseurGauche = TexteCentre.createTextCursor ' curseur centre dans le pied de page         ' écrire un texte dans le pied de page         TexteCentre.insertString(CurseurCentre, sTexteCentre, False)         TexteDroite.insertString(CurseurDroite, sTexteCentre, False)         TexteGauche.insertString(CurseurGauche, sTexteCentre, False)     End Sub   Sous oOCalc par contre lorsque j'utilise cette m^^eme fonction aucun message d'erreur par contre aucune action non plus ?   Merci d'avance pour votre aide ...   PS : Je pense qu'enfin mon patron va acheter le fameux guide de programmation !!!     -----Message d'origine----- De : Laurent Godard [mailto:[EMAIL PROTECTED] Envoyé : mardi 11 avril 2006 16:04 À : prog@fr.openoffice.org Objet : Re: [prog] Netiquette   Bonjour Cezame Concept   Cezame, c'est ton prenom ? Je vais parler pour moi : Et oui, il se trouve que ton attitude peut etre a l'origine du manque d'ardeur a te repondre. Dire bonjour au moins ... Mettre la pression dans les tittre de mail URGENT et autres qualificatifs temporels me rappel egalement que j'ai aussi de choses urgentes à faire   Tu es sous pression, ca peut s'excuser ... une fois Mais le probleme est que l'arrogance recurrente ne rentre plus dans cette circonstance attenuante   Donc oui, une communaute est là pour l'entraide mais il faut considerer cette aide donnée comme un cadeau et non un dû   Pour ton probleme regarde de ce coté pour debuter http://api.openoffice.org/docs/common/ref/com/sun/star/text/TextPageStyle.html#HeaderText http://api.openoffice.org/docs/common/ref/com/sun/star/text/TextDocument.html http://api.openoffice.org/docs/DevelopersGuide/Text/Text.xhtml#1_4_5_Page_Layout   Pour ce qui est de la mise a disposition de ton travail, n'hesites pas a demander pour les aspects licence et autres. de meme tu peux venir contribuer au projet Extensions si tu le desires   Laurent ps: Nicolas, heureux papa, tu as gagné un quadri-papa abonné RSS à ton blog ;)   -- Laurent Godard <[EMAIL PROTECTED]> - Ingénierie OpenOffice.org Indesko >> http://www.indesko.com Nuxeo CPS >> http://www.nuxeo.com - http://www.cps-project.org Livre "Programmation OpenOffice.org", Eyrolles 2004   --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]   --------------------------------------------------------------------------------------- Wanadoo vous informe que cet  e-mail a ete controle par l'anti-virus mail. Aucun virus connu a ce jour par nos services n'a ete detecte.         --------------------------------------------------------------------------------------- Wanadoo vous informe que cet e-mail a ete controle par l'anti-virus mail. Aucun virus connu a ce jour par nos services n'a ete detecte.