SetSortOrder Method

Microsoft Office Object Model

SetSortOrder Method

       

Sets the sort order for mail merge data.

expression.SetSortOrder(SortField1, SortAscending1, SortField2, SortAscending2, SortField3, SortAscending3)

expression   Required. An expression that returns one of the objects in the Applies To list.

SortField1  Required String. The first field on which to sort the mail merge data.

SortAscending1  Optional Boolean. True (default) to perform an ascending sort on SortField1; False to perform a descending sort.

SortField2  Optional String. The second field on which to sort the mail merge data. Default is an empty string.

SortAscending2  Optional Boolean. True (default) to perform an ascending sort on SortField2; False to perform a descending sort.

SortField3  Optional String. The third field on which to sort the mail merge data. Default is an empty string.

SortAscending3  Optional Boolean. True (default) to perform an ascending sort on SortField3; False to perform a descending sort.

Example

The following example sorts the data source first according to ZIP code in descending order, then on last name and first name in ascending order.

Sub SetDataSortOrder()
    Dim appOffice As OfficeDataSourceObject

    Set appOffice = Application.OfficeDataSourceObject

    appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _
        "UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees"

    appOffice.SetSortOrder SortField1:="ZipCode", _
        SortAscending1:=False, SortField2:="LastName", _
        SortField3:="FirstName"
End Sub