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

Use Long for ASC result

Browse source
This commit is contained in:
Georgy Litvinov 2020-06-23 16:07:11 +02:00
parent 1ec3e9ad34
commit e607dd98de
3 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ePublishing/Hyphenations.xba
View file

@ -80,7 +80,7 @@ Private Sub convertParaHyphens(para As Object)
Dim autoBreaks() As Object
Dim lineNumbers() As Integer
' Dim lineShifts() As Integer
Dim charNum as Integer
Dim charNum as Long
Dim lineLength As Integer
Dim lineCursor As Object
Dim i As Integer
@ -336,8 +336,8 @@ End Sub
Private Function needHyphen(before As String, after As String,lineLength As Integer) As boolean
Dim charNumBefore as Integer
Dim charNumAfter as Integer
Dim charNumBefore as Long
Dim charNumAfter as Long
needHyphen = true
If lineLength < 2 Then
needHyphen = false