Bonjour,
Grace a votre aide j’ai réussi a créer et écrire dans un entête et un pied de page sous oOWriter …
Apparemment il est impossible de gérer comme sous Office les parties de ceux-ci (droite, gauche, centre) de ce fait je souhaiterai mettre en forme le texte au centre…
Pour cela je dois donc sélectionner le texte de l’entête ou du pied de page … comment sélectionner le texte de l’entête ou pied de page une fois celui-ci créé ?
Ci-dessous mon code sous VB .NET pour création entête et pied de page … si quelqu’un peux le compléter pour ensuite sélectionner le texte ?
Sub InsererUnEnteteCentre(ByVal sTexteCentre As String)
Dim monTexte As Object, monCurseur As Object
Dim TexteCentre As Object, CurseurCentre 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 entête
.HeaderBodyDistance = 1000 ' 10 mm
.HeaderHeight = 2500 ' 25mm
TexteCentre = .HeaderText ' zone de texte centre de l'entête
End With
CurseurCentre = TexteCentre.createTextCursor ' curseur centre dans l'entête
' écrire un texte dans l'entête
TexteCentre.insertString(CurseurCentre, sTexteCentre, False)
End Sub
Sub InsererUnPiedDePageCentre(ByVal sTexteCentre As String)
Dim monTexte As Object, monCurseur As Object
Dim TexteCentre As Object, CurseurCentre 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
End With
CurseurCentre = TexteCentre.createTextCursor ' curseur centre dans le pied de page
' écrire un texte dans le pied de page
TexteCentre.insertString(CurseurCentre, sTexteCentre, False)
Merci d’avance !!
