Word VBA教程:SortDescending方法

以字母降序排列段落或表格行。将第一段或表格第一行视为域名记录,不进行排序。可用Sort方法将域名记录包含在排序中。

注意   此方法为含有数据列的邮件合并数据源排序提供一种简化形式。对于大多数排序,请使用Sort方法。

expression.SortDescending

expression   必需。该表达式返回一个 Range、Selection 或 Table对象。

VBA示例

本示例在新文档中创建一张 5 x 5 表格,将文本插入每个单元格,然后以字母降序排列表格。


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号