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

new version

Browse source
This commit is contained in:
Georgy Litvinov 2020-05-08 17:17:01 +02:00
parent c9b2e2d6fd
commit 15a423b3c4
3 changed files with 9 additions and 11 deletions
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"?>
<!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 archMark9
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Archive" script:language="StarBasic" script:moduleType="normal">Sub archMark10
End Sub
@ -193,19 +193,19 @@ sub convertIndesignPageBreaks
MsgBox getTranslation(&quot;convertIndesignPageBreaksFinish&quot;)
end Sub
Sub adjustLastLine(oTextCursor)
Sub adjustLastLine(oTextCursor As Object)
oTextCursor.ParaAdjust = 2
oTextCursor.ParaLastLineAdjust = 2
balancePara(oTextCursor)
End Sub
Sub adjustFirstLine(oTextCursor)
Sub adjustFirstLine(oTextCursor As Object)
oTextCursor.goRight(1,false)
oTextCursor.ParaFirstLineIndent = 0
End Sub
Function isLowerCase(character) As Boolean
Function isLowerCase(character As String) As Boolean
Dim charNum As Integer
If (character = &quot;&quot;) Then
charNum = ASC(&quot;&quot;+0)
@ -219,7 +219,7 @@ Function isLowerCase(character) As Boolean
isLowerCase = false
End Function
Sub balancePara(Optional targetPara As Object)
Sub balancePara(targetPara As Object)
&apos; Globalscope.BasicLibraries.LoadLibrary( &quot;MRILib&quot; )
Dim oViewCursor As Object
Dim oTextCursor As Object
@ -238,9 +238,7 @@ Sub balancePara(Optional targetPara As Object)
initialLineCount = 0
oViewCursor = ThisComponent.CurrentController.getViewCursor()
If NOT IsMissing(targetPara) Then
oViewCursor.goToRange(targetPara, false)
EndIf
oViewCursor.goToRange(targetPara, false)
oTextCursor = oViewCursor.Text.createTextCursorByRange(oViewCursor)
oPara = oViewCursor.Text.createTextCursorByRange(oViewCursor)