litvinovg/epublishing
1
0
Fork 0
Code Issues Pull requests Projects Releases 33 Packages Wiki Activity Actions

feat: para balance improvements

Browse source
This commit is contained in:
Georgy Litvinov 2021-08-23 18:01:29 +02:00
parent c5dfb15133
commit 79f8164650
2 changed files with 225 additions and 63 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ePublishing/Books.xba
View file

@ -362,7 +362,7 @@ Sub setUniqPageStylesDEPRECATED
End Sub
Function hasPageStyleWith(pageStyleName)
Function hasPageStyleWith(pageStyleName As String) As Boolean
Dim enum1 As Object
Dim enum1Element As Object
Dim curPage As String
@ -387,7 +387,7 @@ Function hasPageStyleWith(pageStyleName)
hasPageStyleWith = false
End Function
Function findFirstPageNumberWithStyle(pageStyleName)
Function findFirstPageNumberWithStyle(pageStyleName As String) As Integer
Dim enum1 As Object
Dim enum1Element As Object
Dim curPage As String
@ -396,6 +396,7 @@ Function findFirstPageNumberWithStyle(pageStyleName)
Dim oViewCursor As Object
Dim anchor As Object
Dim oSavePosition As Object
Dim curPageStyleName As String
oViewCursor = ThisComponent.CurrentController.getViewCursor()
oSavePosition = oViewCursor.Text.createTextCursorByRange(oViewCursor)
enum1 = ThisComponent.Text.createEnumeration()