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

More fixes

Browse source
This commit is contained in:
Georgy Litvinov 2020-03-12 19:13:33 +01:00
parent 3f8fd4f186
commit 2fd1adc5bc
1 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
ePublishing/Hyphenations.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="Hyphenations" script:language="StarBasic">Private Sub markHyph3 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Hyphenations" script:language="StarBasic">Private Sub markHyph4
End sub End sub
Private Sub convertHyphInDoc() Private Sub convertHyphInDoc()
@ -139,7 +139,7 @@ Private Sub convertParaHyphens(para)
replaceHyphen(autoHyphens(i),lineNumbers(i)) replaceHyphen(autoHyphens(i),lineNumbers(i))
Next i Next i
EndIf EndIf
&apos; verifyHyphenation(lineEnds,lineShifts) verifyHyphenation(lineEnds)
End Sub End Sub
@ -157,6 +157,11 @@ Private Sub verifyHyphenation(lineEnds() As Object)
Stop Stop
EndIf EndIf
Next i Next i
&apos; dim description as String
&apos; description = &quot;Проверка прошла успешно&quot;
&apos; If NOT confirm(description) Then
&apos; Stop
&apos; EndIf
End Sub End Sub
@ -230,6 +235,8 @@ Private Sub compressLine(tCurs As Object)
tPortion = vCurs.Text.createTextCursorByRange(startPosition) tPortion = vCurs.Text.createTextCursorByRange(startPosition)
tPortion.goToRange(tLine.Start,true) tPortion.goToRange(tLine.Start,true)
addToArray(textPortions(),tPortion) addToArray(textPortions(),tPortion)
Else
addToArray(textPortions(),tLine)
EndIf EndIf
vCurs.goToRange(tCurs,false) vCurs.goToRange(tCurs,false)