From 075bfc85aa9930d09b7a3f59f24ef289f3a882f8 Mon Sep 17 00:00:00 2001 From: Georgy Litvinov Date: Fri, 1 Oct 2021 11:00:28 +0200 Subject: [PATCH] fix: don't split pages while breaking paragraph --- ePublishing/journals.xba | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/ePublishing/journals.xba b/ePublishing/journals.xba index 6cb8553..bcddfb0 100644 --- a/ePublishing/journals.xba +++ b/ePublishing/journals.xba @@ -1,6 +1,6 @@ -Private sub journalsMark35 +Private sub journalsMark36 End sub Dim templateName As String @@ -1200,11 +1200,11 @@ Function breakParaAtCursor() As Object oViewCursor.goToRange(oTextCursor,false) breakParaAtCursor = oViewcursor.Text.createTextCursorByRange(oViewCursor) Else - oTextCursor.goRight(1,false) - oViewCursor.goToRange(oTextCursor,false) - oViewCursor.BreakType = com.sun.star.style.BreakType.PAGE_BEFORE - oTextCursor.goLeft(1,false) - oViewCursor.goToRange(oTextCursor,false) + 'oTextCursor.goRight(1,false) + 'oViewCursor.goToRange(oTextCursor,false) + 'oViewCursor.BreakType = com.sun.star.style.BreakType.PAGE_BEFORE + 'oTextCursor.goLeft(1,false) + 'oViewCursor.goToRange(oTextCursor,false) breakParaAtCursor = oViewcursor.Text.createTextCursorByRange(oViewCursor) EndIf End Function