次の方法で共有

Table.SortDescending メソッド (Word)

  • [アーティクル]

表の行を、JIS コードの降順に並べ替えます。

構文

式。 SortDescending

expression 必須です。 'Table' オブジェクトを表す変数。

注釈

表の先頭行はヘッダー レコードと見なされ、並べ替えに含まれていません。 ヘッダー レコードを含めて並べ替えるには、 Sort メソッドを使用します。

このメソッドでは、簡略化されたフォームのデータの列を含む差し込み印刷データ ソースの並べ替えを提供します。 ほとんどの並べ替え操作には、 Sort メソッドを使用します。

例

次の使用例は、新しい文書に 5 列 5 行の表を作成し、各セルに文字列を挿入します。次に、JIS コードの降順で表を並べ替えます。

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

次の使用例は、カーソルが置かれている表を JIS コードの降順で並べ替えます。

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

関連項目

テーブル オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。