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

Footnotes numbering

Browse source
This commit is contained in:
Georgy Litvinov 2020-03-13 16:36:45 +01:00
parent 62fafde775
commit bb69f14e26
6 changed files with 167 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
ePublishing/journals.xba
View file

@ -60,7 +60,7 @@ Private Sub makeUpIssue
' Add article for each section
'Go to article first page
page = findFirstPageWithStyle("Первая страница статьи")
page = findFirstPageNumberWithStyle("Первая страница статьи")
firstPage = page
oViewCursor.jumpToPage(page)
oTextCursor = oViewCursor.Text.createTextCursorByRange(oViewCursor)
@ -152,7 +152,7 @@ Private Sub setPageNumbersDeprecated()
Dim firstPage as String
oViewCursor = ThisComponent.CurrentController.getViewCursor()
oViewCursor.jumpToFirstPage()
firstPage = findFirstPageWithStyle("Статья 1 стр.1")
firstPage = findFirstPageNumberWithStyle("Статья 1 стр.1")
oViewCursor.jumpToPage(firstPage)
For i = 1 To 25
pageNum = lastPageNum(i)
@ -539,13 +539,13 @@ Private Sub setAritclePageHeaders(i)
Dim leftHeaderCell As Object
Dim curStyleName As String
Dim curStyle As Object
Dim page As String
Dim page As Integer
Dim pageStyles As Object
Dim articleStartPosition As Object
oViewCursor = ThisComponent.CurrentController.getViewCursor()
oSavePosition = oViewCursor.Text.createTextCursorByRange(oViewCursor)
pageStyles = ThisComponent.StyleFamilies.getByName("PageStyles")
page = findFirstPageWithStyle("Статья " + i + " стр.1")
page = findFirstPageNumberWithStyle("Статья " + i + " стр.1")
oViewCursor.jumpToPage(page)
articleStartPosition = oViewCursor.Text.createTextCursorByRange(oViewCursor)