word vba テーブルの並べ替え

Word VBAを使用して、テーブルをソートするには、以下の手順に従ってください。

1. ソートしたいテーブルを含むWord文書を開きます。
2. テーブルを選択します。
3. 「開発」タブをクリックして、「Visual Basic」を選択します。
4. 「Visual Basicエディター」で、以下のコードを入力します。

Sub SortTable()
    Dim tbl As Table
    Set tbl = Selection.Tables(1)
    tbl.Sort SortOrder:=wdSortOrderAscending, _
    ExcludeHeader:=True, _
    FieldNumber:=1, _
    SortFieldType:=wdSortFieldNumeric
End Sub

5. 上記のコードを実行するには、「F5」キーを押すか、コードの先頭にカーソルを置いて「実行(Run)」をクリックします。
6. 上記のコードでは、テーブルの最初の列を基準に昇順でソートします。他の列でソートしたい場合は、FieldNumberを対象の列数に変更します。降順にソートする場合は、SortOrderをwdSortOrderDescendingに変更します。
7. ソートを実行する前に、ExcludeHeaderパラメータをTrueに設定して、テーブルのヘッダー行がソートされないようにします。
8. SortFieldTypeパラメータを変更して、数値や日付などの異なるデータ型に基づいてソートできます。

実行前イメージ

実行後イメージ