共用方式為

Word) (Table.SortDescending 方法

  • 發行項

會依英數字元的遞減順序排序表格列。

語法

expression. SortDescending

需要 expression。 代表 'Table' 物件的變數。

註解

第一個表格列會被視為欄位名稱記錄並不包含在排序。 使用 Sort 方法在排序包含欄位名稱記錄。

此方法提供簡體中文排序適用於包含資料的資料行的合併列印資料來源的表單。 對於大部分的排序工作使用 Sort 方法。

範例

這個範例會在新文件中建立 5x5 表格，並且在每個儲存格內插入文字，然後依英數字元的遞減順序排序表格。

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

這個範例會依英數字元的遞減順序排序包含插入點的表格。

If Selection.Information(wdWithInTable) = True Then 
 Selection.Tables(1).SortDescending 
Else 
 MsgBox "The insertion point is not in a table." 
End If

另請參閱

Table 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。