Sorting numerals with decimals in Word

[kevin k via OfficeKB.com]

I have a table within a Word document that has been formatted and configured
the way management likes; i.e., it's aesthetically pleasing, easy to populate
and easy to distribute. However, I'm having an issue with the sorting of
section numbers containing decimals, namely, 1.2.2, 1.2.3...10.3.2, etc. etc.
This issue has come up several times and I understand reason behind it, as
described in threads like the following:

http://www.officekb.com/Uwe/Forum.aspx/ms-excel/60787

What I'd like to determine is if the coding solutions are available through
my existing Word document or is my only recourse to convert to Excel?

Thank you for your help-
Kevin

 

[Helmut Weber]

Hi Kevin,

can all be done. No need of a quirk Excel formula.
Assuming, that you are at an intermediate VBA level,
here comes what you basically need for sorting,
a function to convert, e.g.
"10.3.2" to "010.003.002".
and a function for back conversion.

Public Function FillWith0(sTmp$) As String
Dim sArr() As String
sArr = Split(sTmp, ".")
For l = 0 To UBound(sArr)
sArr(l) = Format(sArr(l), "000")
Next
FillWith0 = Join(sArr, ".")
End Function
' ---
Public Function Remove0(sTmp$) As String
Dim sArr() As String
sArr = Split(sTmp, ".")
For l = 0 To UBound(sArr)
sArr(l) = Format(sArr(l), "0")
Next
Remove0 = Join(sArr, ".")
End Function
' ---
Sub convert()
MsgBox FillWith0("10.3.2")
MsgBox Remove0(FillWith0("10.3.2"))
End Sub

If you have no idea about programming,
then it'll be really tough.

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"