Writer macro

fr-users
#1

Bonjour,

J'ai une macro qui insère une page vide en fin de document.

J'ai un souci car l'insertion du saut de page ne s'exécute qu'une fois. Si je lance la macro deux fois de suite le texte s'inscrit bien en fin de document mais sans saut de pas avant.

Voici le code de ma macro

monDocument = ThisComponent
Texte = monDocument.Text
Curseur = Texte.createTextCursor
Curseur.gotoEnd(false)
curseur.GotoEndOfparagraph(true)
saut = com.sun.star.style.BreakType.PAGE_BEFORE
curseur.breaktype = saut
texte.insertString(Curseur, "nouvelle page vide",false)

Si quelqu'un avait une idée, elle serait la beinvenue

Merci

Claude

#2

Bonjour

claude wrote

J'ai un souci car l'insertion du saut de page ne s'exécute qu'une fois.
Si je lance la macro deux fois de suite le texte s'inscrit bien en fin
de document mais sans saut de pas avant.

De mémoire (à vérifier donc) modifier comme ci-dessous
(aller en fin de paragraphe est en commentaire car c'est
sans doute superflu):

monDocument = ThisComponent
Texte = monDocument.Text
Curseur = Texte.createTextCursor
Curseur.gotoEnd(false)
'curseur.GotoEndOfparagraph(true)
Texte.insertControlCharacter(Curseur,
com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False)
saut = com.sun.star.style.BreakType.PAGE_BEFORE
curseur.breaktype = saut
texte.insertString(Curseur, "nouvelle page vide",false)

Cordialement
Pierre-Yves

#3

Super ! merci

Bonne journée

Claude

-------- Message original --------
Sujet : [INTERNET] [fr-users] Re: Writer macro
Pour : users@fr.libreoffice.org