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

Code cleaning

Browse source
This commit is contained in:
Georgy Litvinov 2020-03-21 16:35:38 +01:00
parent 52a5b70bbf
commit dd90a5b726
6 changed files with 102 additions and 80 deletions
Download patch file Download diff file Expand all files Collapse all files

7
ePublishing/TOCLinks.xba
View file

@ -1,9 +1,10 @@
<?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="TOCLinks" script:language="StarBasic" script:moduleType="normal">Sub markTOC2
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="TOCLinks" script:language="StarBasic" script:moduleType="normal">Sub markTOC4
End Sub
Sub makeOutlineLinks
Dim i As Integer
For i = 1 To 10
makeLinksWithLevel(i)
Next i
@ -100,6 +101,7 @@ Function getOutlineWithLevel(curNum)
Dim cellEnum2 As Object
Dim par() As Object
Dim parName As String
Dim cellEnumElement As Object
parName = &quot;Contents &quot; + curNum
enum1 = ThisComponent.Text.createEnumeration
While enum1.hasMoreElements
@ -132,7 +134,8 @@ Function getOutlineWithLevel(curNum)
End Function
Sub addToArray(xArray(),vNextElement)
Dim iUB%,iLB%
Dim iUB As Integer
Dim iLB As Integer
iLB = lBound(xArray())
iUB = uBound(xArray())
If iLB &gt; iUB then