View Single Post
Old 02-22-2011, 02:41 AM   #2
kreti
Connoisseur
kreti doesn't litterkreti doesn't litter
 
Posts: 52
Karma: 194
Join Date: Nov 2010
Location: Spain
Device: energy system 1060 / Avant XL / Onyx Boox M96
You can add the next lines in 'Sub TraverseText', in the Traverse Macro, between the lines:
'sParEx = fnExportParagraph(oPar)' and
'CountLength = CountLength + Len (sParEx)'
to see the list numbering.
....
sParEx = fnExportParagraph(oPar)
'proper code.
if oPar.NumberingIsNumber = true then
if oPar.ListLabelString = "" then
sParEx = "<p>" & "- " & right(sParEx, len(sParEx) - 3)
else
sParEx = "<p>" & oPar.ListLabelString & right(sParEx, len(sParEx) - 3)
end if
end if
' end proper code

CountLength = CountLength + Len (sParEx)
.....
kreti is offline   Reply With Quote