Uwaga
Dostęp do tej strony wymaga autoryzacji. Może spróbować zalogować się lub zmienić katalogi.
Dostęp do tej strony wymaga autoryzacji. Możesz spróbować zmienić katalogi.
Sorts table rows in descending alphanumeric order.
Syntax
expression .SortDescending
expression Required. A variable that represents a Table object.
Remarks
The first table row is considered a header record and isn't included in the sort. Use the Sort method to include the header record in a sort.
This method offers a simplified form of sorting intended for mail-merge data sources that contain columns of data. For most sorting tasks, use the Sort method.
Example
This example creates a 5x5 table in a new document, inserts text into each cell, and then sorts the table in descending alphanumeric order.
Set newDoc = Documents.Add
Set myTable = _
newDoc.Tables.Add(Range:=Selection.Range, NumRows:=5, _
NumColumns:=5)
For iRow = 1 To myTable.Rows.Count
For iCol = 1 To myTable.Columns.Count
Set MyRange = myTable.Rows(iRow).Cells(iCol).Range
MyRange.InsertAfter "Cell" & Str$(iRow) & "," & Str$(iCol)
Next iCol
Next iRow
MsgBox "Click OK to sort in descending order."
myTable.SortDescending
This example sorts the table that contains the insertion point in descending alphanumeric order.
If Selection.Information(wdWithInTable) = True Then
Selection.Tables(1).SortDescending
Else
MsgBox "The insertion point is not in a table."
End If