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パラメータを変更して、数値や日付などの異なるデータ型に基づいてソートできます。

実行前イメージ

No	Name	param
3	B	2
44	C	3
111	D	4
1	A	5

実行後イメージ

No	Name	param
1	A	5
3	B	2
44	C	3
111	D	4

文書情報

記事タイトル

word vba テーブルの並べ替え

作成日

2023.02.28

更新日

2026.08.27

Source URL

https://papanda925.com/?p=2379

ライセンス: 本記事のうち、当サイトが権利を有する本文・自作図表は、特記なき限り CC BY 4.0 で利用できます。生成AIを活用して作成・編集した内容を含みます。コードについて、別途ライセンス表示またはリンク先GitHubリポジトリのライセンスがある場合は、その条件を優先します。引用・第三者資料・画像・商標等は本ライセンスの対象外です。 利用ポリシー