[Résolu][Writer]insérer un cadre dans une page donnée
Publié : 16 oct. 2019 09:11
Bonjour
J'utilise une macro (proposée par Hubert Lambert -https://forum.openoffice.org/fr/forum/v ... 29#p331667-merci à lui) pour intégrer des cadres dans un document.
Mais une fois la page pleine, les cadres suivants se repositionnent sur la même page.
Comment, dans la macro, ajouter une page et positionner le cadre sur cette nouvelle page.
Merci pour votre aide
J'utilise une macro (proposée par Hubert Lambert -https://forum.openoffice.org/fr/forum/v ... 29#p331667-merci à lui) pour intégrer des cadres dans un document.
Mais une fois la page pleine, les cadres suivants se repositionnent sur la même page.
Comment, dans la macro, ajouter une page et positionner le cadre sur cette nouvelle page.
Merci pour votre aide
Code : Tout sélectionner
sub creerUnNouveauCadre2(posX, posY, name)
doc = thiscomponent
T = doc.Text
csst = com.sun.star.text
cadre = doc.createInstance("com.sun.star.text.TextFrame")
cadre.AnchorType = csst.TextContentAnchorType.AT_PAGE 'AT_PARAGRAPH ' const 0
cadre.Width = 3500
cadre.Height = 800
cadre.HoriOrient = csst.HoriOrientation.NONE ' const 0
cadre.HoriOrientPosition = posX
cadre.VertOrient = csst.VertOrientation.NONE ' const 0
cadre.VertOrientPosition = posY
cadre.Name = name
doc.Text.insertTextContent(T.Start, cadre, False)
' xray doc.Text
end sub