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)
.....