Je viens sous oOWriter d’arriver à créer et écrire dans l’entête et pied de page …
Maintenant je souhaiterai accéder a l’entête et au pied de page pour pouvoir personnaliser police …
A Priori la gestion ne se fait pas bas bloc droite centre et gauche ?
Ci-dessous mon code sous VB 2005 Express
Sub InsererUnEnTete(ByVal TexteAInsérer As String)
Dim monTexte As Object, monCurseur As Object
Dim Texte2 As Object, Curseur2 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
.HeaderIsOn = True ' insérer un en-tête
.HeaderBodyDistance = 1000 ' 10 mm
.HeaderHeight = 2500 ' 25mm
Texte2 = .HeaderText ' zone de texte de l'en-tête
End With
Curseur2 = Texte2.createTextCursor ' curseur dans l'en-tête
' écrire un texte dans l'en-tête
Texte2.insertString(Curseur2, TexteAInsérer, False)
End Sub
Sub InsererUnPiedDePage(ByVal TexteAInsérer As String)
Dim monTexte As Object, monCurseur As Object
Dim Texte2 As Object, Curseur2 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
Texte2 = .FooterText ' zone de texte de l'en-tête
End With
Curseur2 = Texte2.createTextCursor ' curseur dans le pied de page
' écrire un texte dans le pied de page
Texte2.insertString(Curseur2, TexteAInsérer, False)
End Sub
Comment compléter ces fonctions pour personnaliser en particulier sélectionner le texte de l’ent^^ete ou du pieds … pouvoir gérer des parties droite gauche et centre comme sous ms word ?
Merci d’avance !!!
