macro help .. how to sort according to numbering of pages of document ?

Works for numbers too.

Sub AlphbetizePages()
Dim p As Page, doc As Document, i As Integer, x As Integer, j As Integer
Dim pageArray() As String, pageName As String, pa As Long

Set doc = Application.ActiveDocument
pa = doc.Pages.Count - 1: i = 0
ReDim pageArray(pa)

For Each p In doc.Pages
pageArray(i) = p.Name
i = i + 1
Next p

With ActiveDocument.Pages
For x = 1 To .Count - 1
For j = x + 1 To .Count
If UCase(.Item(x).Name) > UCase(.Item(j).Name) Then
.Item(x).MoveTo j
.Item(j - 1).MoveTo x
End If
Next j
Next x
End With
End Sub