Hi all,

Just wondering if there is a simple find and replace wildcard to sort text in numerical order.

The below code is working fine but I'm looking for something simple.

Thank you for any help.

Cheers! 


Sub Macro7()
' Macro7 Macro
Selection.WholeStory
Selection.Sort ExcludeHeader:=False, FieldNumber:="Paragraphs", SortFieldType:=wdSortFieldNumeric, 
SortOrder:=wdSortOrderAscending, FieldNumber2:="", SortFieldType2:=wdSortFieldAlphanumeric, _
 SortOrder2:=wdSortOrderAscending, FieldNumber3:="", SortFieldType3:=wdSortFieldAlphanumeric, 
SortOrder3:=wdSortOrderAscending, Separator:= wdSortSeparateByTabs, SortColumn:=False, _
 CaseSensitive:=False, LanguageID _:=wdEnglishUS, SubFieldNumber:="Paragraphs", _
SubFieldNumber2:="Paragraphs", SubFieldNumber3:="Paragraphs"
End Sub