Sorting arrays 1

[Stretchwickster]

Hey folks!

Are there any methods within vba to sort arrays?

Your help would be much appreciated! Clive

http://www.kucu.co.uk

Ex nihilo, nihil fit (Out of nothing, nothing comes)

 

[bryanbayfield]

Yep - use SortArray method from WordBasic

http://www.mvps.org/word/FAQs/MacrosVBA/WordBasicCommands.htm

 

[Stretchwickster]

Sorry..I'm in Excel Clive

http://www.kucu.co.uk

Ex nihilo, nihil fit (Out of nothing, nothing comes)

 

[bryanbayfield]

Doesn't matter. Create a Word object, wordbasic is child of that.

Other option is to do a UDF to sort an array - myself I prefer to do it the easy way.

 

[Stretchwickster]

I haven't done this before...How do i declare a word object? Clive

http://www.kucu.co.uk

Ex nihilo, nihil fit (Out of nothing, nothing comes)

 

[bryanbayfield]

Private Sub CommandButton1_Click()
Dim appWD As Word.Application, sort_arr(3) As String, i As Integer
Set appWD = CreateObject("Word.Application")
sort_arr(0) = "Z"
sort_arr(1) = "X"
sort_arr(2) = "8"
sort_arr(3) = "1"
Debug.Print "Before Sorting"
For i = 0 To 3
    Debug.Print sort_arr(i)
    Next
WordBasic.SortArray sort_arr
Debug.Print "After Sorting"
For i = 0 To 3
    Debug.Print sort_arr(i)
    Next
appWD.Quit
End Sub

The one weakness is that if you declare the array you want to sort as a variant, it won't work. Also remember to add a reference to the Word object library by selecting Tools > References then searching for word in the list box.