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

Unique page styles

Browse source
This commit is contained in:
Georgy Litvinov 2020-05-11 19:58:47 +02:00
parent 15a423b3c4
commit 59c5e6396c
5 changed files with 271 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

8
ePublishing/Archive.xba
View file

@ -494,15 +494,15 @@ Sub replaceParaStyle
End Sub
Function getIndex(a, v)
Function getIndex(array As variant, value As variant) As Integer
Dim id As Integer
Dim nRight As Integer
Dim nLen As Integer
id = 0
nRight = uBound(a)
nLen = len(v)
nRight = uBound(array)
nLen = len(value)
while id <= nRight
if a(id) = v then
If array(id) = value Then
getIndex = id
exit Function
Else