🚀 go-pugleaf

Hello,

I have this code to create a new page when the text overflows a textframe. I have the new page but the text of the first paragraph of the created page are not in good order.

Is anyone can help me ?

Thanks a lot.

------------------------------------------------------------------------
Bloc_Texte.InsertionPoints.Item(-1).AppliedCharacterStyle = NoCharStyle
Bloc_Texte.InsertionPoints.Item(-1).AppliedParagraphStyle = "2-Texte"
Bloc_Texte.InsertionPoints.Item(-1).Contents = "Randonn�e hors-piste"
Bloc_Texte.InsertionPoints.Item(-1).Contents = ", "
Bloc_Texte.InsertionPoints.Item(-1).Contents = "29690"
Bloc_Texte.InsertionPoints.Item(-1).Contents = " "
Bloc_Texte.InsertionPoints.Item(-1).Contents = "Botmeur"
Bloc_Texte.InsertionPoints.Item(-1).Contents = ", "
Bloc_Texte.InsertionPoints.Item(-1).AppliedCharacterStyle = "Puce-Nature-c"
Bloc_Texte.InsertionPoints.Item(-1).Contents = "id�e 34"
Bloc_Texte.InsertionPoints.Item(-1).Contents = vbCr
Test_Overflow
Bloc_Texte.InsertionPoints.Item(-1).AppliedCharacterStyle = NoCharStyle
Bloc_Texte.InsertionPoints.Item(-1).AppliedParagraphStyle = "2-Texte"
Bloc_Texte.InsertionPoints.Item(-1).Contents = "Passe � poissons"
Bloc_Texte.InsertionPoints.Item(-1).Contents = ", "
Bloc_Texte.InsertionPoints.Item(-1).Contents = "56190"
Bloc_Texte.InsertionPoints.Item(-1).Contents = " "
Bloc_Texte.InsertionPoints.Item(-1).Contents = "Arzal"
Bloc_Texte.InsertionPoints.Item(-1).Contents = ", "
Bloc_Texte.InsertionPoints.Item(-1).AppliedCharacterStyle = "Puce-Nature-c"
Bloc_Texte.InsertionPoints.Item(-1).Contents = "id�e 20"
Bloc_Texte.InsertionPoints.Item(-1).Contents = vbCr
Test_Overflow

Function Test_Overflow()
if Bloc_Texte.overflows = true then
	Document_IND.Sections.Item(1).PageNumberStart = cInt(542)
	Set Page_Precedente = Page_Courante
	Set Page_Courante = Document_IND.Pages.Add
	Numero_Premiere_Page = Numero_Premiere_Page + 1
	Set Page_Courante = Document_IND.Pages.Item(Numero_Premiere_Page-Document_IND.Sections.Item(1).PageNumberStart+1)
	Set Bloc_Texte_Precedent = Bloc_Texte
	Set Bloc_Texte = Page_Courante.TextFrames.Add
	Bloc_Texte.GeometricBounds = Array(30,10,220,120)
	Bloc_Texte.TextFramePreferences.TextColumnCount = 2
	Bloc_Texte.TextFramePreferences.TextColumnGutter = 5
	Bloc_Texte.TextFramePreferences.VerticalJustification = idVerticalJustification.idJustifyAlign
	Bloc_Texte.PreviousTextFrame = Bloc_Texte_Precedent
end if
end Function