Bonjour,
Je suis en train de me familiariser avec la programmation des macros Ooo
à l'aide des excellents exemples trouvés sur le site
J'ai un petit souci avec la macro qui insère un en-tête. Dans la doc il
est dit que le troisième paramètre de insertString détermine le
remplacement ou non du texte déjà existant.
Or dans la macro qui suit que je mette
Texte2.insertString(Curseur2, "Voici un en-tête", false
ou
Texte2.insertString(Curseur2, "Voici un en-tête", true)
Le résultat est le même le texte se met bien en en-tête mais en début de
l'en-tête déjà présente. Y a-t-il un autre paramètre à initialiser?
Merci de vos réponses
Claude
Texte de la macro :
Option Explicit
Sub InsererUnEnTete()
Dim monDocument As Object
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
monDocument = ThisComponent
monTexte = monDocument.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 = monDocument.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, "Voici un en-tête", false)
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org
For additional commands, e-mail: prog-h...@fr.openoffice.org
