Le mardi 24 avril 2007 07:17, Francois Gatto a écrit :
Sub InsertSautPage
Dim oCurseur, oCurseurVisible, oTexte, sInsertion
oCurseur = ThisComponent.getText().createTextCursor()
'Création du saut de page
'voir détails à l'adresse ci-dessous
'http://api.openoffice.org/docs/common/ref/com/sun/star/style/BreakType.htm
l
oTexte = oCurseur.getText()
sInsertion = com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK
oTexte.insertControlCharacter( oCurseur, sInsertion, False )
sInsertion = com.sun.star.style.BreakType.PAGE_AFTER
oCurseur.BreakType = sInsertion
'On récupère le curseur visible que l'on positionne à la dernière page
oCurseurVisible = ThisComponent.getCurrentController().getViewCursor()
oCurseurVisible.jumpToLastPage
End Sub
Merci de la réponse. Je n'ai pas pour l'instant ma doc (livre de
programmation, api sans peine et un autre donc je ne veux pas écorcher le
nom).
Dans mes précédents essais, la création de pages sup était aléatoire (je les
demandais au cours d'une boucle for next) et je n'obtenais sur 20 boucles que
trois pages. Je ne comprenais pas pourquoi.
Encore merci.
Gabriel
3 messages in org.openoffice.fr.progRe: [prog] Comment créer une page sup...
