Bonjour,
Jules César a écrit :
Bonjour à tous.
J'ai un petit problème qui me pose des soucis.
j'ai créé une petite macro qui me postionne des photos sur une page
Writter (6 images par ligne et 6 colonnes soit 32 photos par page). J'ai
souvent besoin d'une autre page.
Le problème, j'arrive mal à créer une page supplémentaire et à me
positionner au début de cette nouvelle page par programmation.
Si quelqu'un pouvait m'expliquer, j'en serais ravi.
Par avance merci.
Gabriel
Quelque chose comme :
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.html
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
Francois
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
