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