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

Fixed getting footnote sign in footnote conversion for archive

Browse source
This commit is contained in:
Georgy Litvinov 2021-05-21 00:18:29 +02:00
parent df65b5efe1
commit 097883c65a
2 changed files with 20 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
ePublishing/Archive.xba
View file

@ -613,8 +613,7 @@ Sub convertLinkToFootnote(forwardLink,backwardLink)
forward = bookmarks.getByName(forwardLink)
backward = bookmarks.getByName(backwardLink)
oViewCursor.goToRange(forward.Anchor,false)
footNoteSign = oViewCursor.getString()
removeTextInFootnote()
footNoteSign = getTextInFootnote
oTextCursor = oViewCursor.Text.createTextCursorByRange(oViewCursor)
oTextCursor.gotoEndOfParagraph(false)
oTextCursor.gotoStartOfParagraph(true)
@ -632,13 +631,21 @@ End Sub
Sub removeTextInFootnote
Function getTextInFootnote As String
Dim oViewCursor As Object
Dim oTextCursor As Object
Dim character As String
getTextInFootnote = ""
oViewCursor = ThisComponent.CurrentController.getViewCursor()
oTextCursor = oViewCursor.Text.createTextCursorByRange(oViewCursor)
oTextCursor.goToStartOfParagraph(false)
oViewCursor.goToRange(oTextCursor,false)
oViewCursor.goRight(1,true)
character = oViewCursor.String
Do While isLinkCharacter(character)
If IsNumeric(character) Then
getTextInFootnote = getTextInFootnote & character
EndIf
oViewCursor.String = ""
oViewCursor.goRight(1,true)
character = oViewCursor.String
@ -648,6 +655,13 @@ Sub removeTextInFootnote
Else
oViewCursor.goLeft(1,false)
EndIf
End Function
Sub removeFootnoteSignInText
Dim oViewCursor As Object
Dim character As String
oViewCursor = ThisComponent.CurrentController.getViewCursor()
oViewCursor.String = ""
oViewCursor.goLeft(1,true)
character = oViewCursor.String
Do While isLinkCharacter(character)
@ -655,18 +669,11 @@ Sub removeTextInFootnote
oViewCursor.goLeft(1,true)
character = oViewCursor.String
Loop
oViewCursor.goRight(1,false)
End Sub
Sub removeFootnoteSignInText
Dim oViewCursor As Object
Dim character As String
oViewCursor = ThisComponent.CurrentController.getViewCursor()
oViewCursor.goLeft(1,true)
oViewCursor.goRight(1,true)
character = oViewCursor.String
Do While isLinkCharacter(character)
oViewCursor.String = ""
oViewCursor.goLeft(1,true)
oViewCursor.goRight(1,true)
character = oViewCursor.String
Loop
oViewCursor.goRight(1,false)

2
ePublishing/Footnotes.xba
View file

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Footnotes" script:language="StarBasic" script:moduleType="normal">sub footMark6
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Footnotes" script:language="StarBasic" script:moduleType="normal">sub footMark7
End Sub
Sub openFootNotesDialog