Au vue de la doc je pensais que l'on pouvait séparer les parties droites
centre et gauche non ?
Cela est très pratique pour éviter les sauts de lignes intempestifs si la
chaine est trop longue pour tenir sur une seule ligne !
A quoi servent donc les fonctions FooterTextLeft et FooterTextRight?
Sous oOCalc j'ai vu qu'il est possible de gérer les trois parties mais je ne
trouve pas comment y accéder par programmation ...
Mon patron a fini par commander le fameux manuel de programmation !!!
Je te retransmets mon code en texte brut :
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
Merci pour votre aide !
-----Message d'origine-----
De : Laurent Godard [mailto:[EMAIL PROTECTED]
Envoyé : mercredi 12 avril 2006 11:09
À : prog@fr.openoffice.org
Objet : Re: [prog] Netiquette
Bonjoru
> 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 ...
>
voir les tabulations proposéees dans un autre mail
>
>
> /Sub InsererUnPiedDePage(ByVal sTexteCentre As String, ByVal
> sTexteDroite As String, ByVal sTexteGauche As String)/
>
essaye de ne pas poster en HTML
ton code est illisible chez moi car apparait en gris pale
probablement du au / encadrant chaque ligne
> Sous oOCalc par contre lorsque jutilise cette m^^eme fonction aucun
> message derreur par contre aucune action non plus ?
>
je ne pense pas que calc utilise les meme fonction
il faut surement passer par les zones d'impression (print areas a confirmer)
Laurent
--
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.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
