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

fix: fixed footnote sign position while converting from links

Browse source
This commit is contained in:
Georgy Litvinov 2021-08-23 18:52:23 +02:00
parent 79f8164650
commit d05aed70d6
1 changed files with 2 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
ePublishing/Archive.xba
View file

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Archive" script:language="StarBasic" script:moduleType="normal">Sub archMark21 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Archive" script:language="StarBasic" script:moduleType="normal">Sub archMark22
End Sub End Sub
@ -484,6 +484,7 @@ Function isLowerCase(character As String) As Boolean
isLowerCase = false isLowerCase = false
End Function End Function
Sub balancePara(targetPara As Object) Sub balancePara(targetPara As Object)
&apos; Globalscope.BasicLibraries.LoadLibrary( &quot;MRILib&quot; ) &apos; Globalscope.BasicLibraries.LoadLibrary( &quot;MRILib&quot; )
Dim oViewCursor As Object Dim oViewCursor As Object
@ -709,8 +710,6 @@ Function calculateMedianParaLen(oPara As Object) As Integer
EndIf EndIf
End Function End Function
Sub convertBookmarksToFootnotes() Sub convertBookmarksToFootnotes()
Dim description As String Dim description As String
description = getTranslation(&quot;convertIndesignFoonotesConfirmation&quot;) description = getTranslation(&quot;convertIndesignFoonotesConfirmation&quot;)
@ -749,9 +748,7 @@ Sub convertBookmarksToFootnotes()
EndIf EndIf
convertLinkToFootnote(forwardLink,backwardLink) convertLinkToFootnote(forwardLink,backwardLink)
EndIf EndIf
Next i Next i
resetNotesStyle resetNotesStyle
MsgBox getTranslation(&quot;convertIndesignFootnotesFinish&quot;) MsgBox getTranslation(&quot;convertIndesignFootnotesFinish&quot;)
End Sub End Sub
@ -831,13 +828,6 @@ Sub removeFootnoteSignInText
character = oViewCursor.String character = oViewCursor.String
Loop Loop
oViewCursor.goRight(1,true) oViewCursor.goRight(1,true)
character = oViewCursor.String
Do While isLinkCharacter(character)
oViewCursor.String = &quot;&quot;
oViewCursor.goRight(1,true)
character = oViewCursor.String
Loop
oViewCursor.goRight(1,false)
End Sub End Sub
Function isLinkCharacter(character As String) As Boolean Function isLinkCharacter(character As String) As Boolean