「マクロ記録」の先へ。Word VBAで表を自在に操る「ソート（並び替え）」の極意
こんにちは。自動化の世界へようこそ。
Wordで大量のデータを扱っているとき、「あぁ、この表、日付順に並べ直したいな」「スコアが高い順に並んでいたら見やすいのに」と思ったことはありませんか？ 手動で並び替えるのは簡単ですが、データが100行、1000行と増えたとき、その作業は苦行へと変わります。
「マクロの記録」ボタンを押して、実際に並び替え操作を行ってみる。それは素晴らしい第一歩です。しかし、記録されたコードを見たことはありますか？ おそらく、人間には理解しがたい、膨大な「Select」や「Selection」の羅列に戸惑ったはずです。
今日は、その「呪文」のようなコードを卒業し、「表（Table）というオブジェクト」を直接、知的にコントロールする技術を伝授しましょう。ここをクリアすれば、あなたのWord VBAスキルは、単なる「記録の再生」から「真の自動化」へと進化します。
1. 概念の整理：Word VBAにおける「表」の捉え方
プログラミングにおいて、最も大切なのは「何に対して命令を出しているのか」を明確にすることです。
「マクロの記録」は、あなたの「マウスの動き」を記録します。しかし、プロのエンジニアは「マウスの動き」ではなく、「表（Tableオブジェクト）に対して、並び替え（Sortメソッド）を実行せよ」という命令を書きます。
なぜ「Selection（選択範囲）」を使ってはいけないのか？
マクロの記録は、常に「今、どこを選択しているか」に依存します。もし、実行中にうっかりマウスで別の場所をクリックしてしまったら？ プログラムは迷子になり、エラーを吐いて止まります。
一方、オブジェクト（Table）を直接指定する方法は、たとえ画面のどこを見ていても、裏側で確実に「その表」を見つけ出し、正確に処理を行います。これが、堅牢なプログラムを作るための鉄則です。
2. 実践：表をソートする魔法のコード
それでは、具体的なコードを見ていきましょう。
以下のコードは、「文書内の最初の表」を対象に、特定の列（例えば2列目の名前、あるいは3列目の数値）を基準に並び替えるサンプルです。
Option Explicit
''' <summary>
''' 表のデータを特定の列を基準に並び替えるメインルーチン
''' </summary>
Sub SortTableExample()
Dim doc As Document
Dim targetTable As Table
Set doc = ActiveDocument
' 1. 対象となる表の存在確認
' 文書内に表が一つもない場合にエラーにならないよう、ガードを入れます
If doc.Tables.Count = 0 Then
MsgBox "文書内に表が見つかりません。", vbExclamation
Exit Sub
End If
' 2. 最初の表をオブジェクトとして変数に格納
' これが「Selection」に頼らない、プロの書き方です
Set targetTable = doc.Tables(1)
' --- パターンA: 2列目（名前など）を昇順で並び替え ---
Debug.Print "2列目で昇順ソートを実行します。"
Call ExecuteSort(targetTable, 2, True)
' --- パターンB: 3列目（数値など）を降順で並び替え ---
' 少し待機を入れるのは、処理の視覚的な確認のため（実用上は不要）
DoEvents
Debug.Print "3列目で降順ソートを実行します。"
Call ExecuteSort(targetTable, 3, False)
MsgBox "並び替えが完了しました！", vbInformation
End Sub
''' <summary>
''' 並び替えのロジックを分離したサブ関数
''' </summary>
''' <param name="tbl">対象のTableオブジェクト</param>
''' <param name="sortColumn">基準にする列番号</param>
''' <param name="isAscending">Trueなら昇順、Falseなら降順</param>
Sub ExecuteSort(tbl As Table, sortColumn As Integer, isAscending As Boolean)
' Sortメソッドの引数をマスターしましょう
tbl.Sort _
ExcludeHeaderRows:=1, _
FieldNumber:=sortColumn, _
SortAscending:=isAscending
' 【解説】
' ExcludeHeaderRows:=1 => 「最初の1行目は見出しだから、並び替えの対象にしないでね」という意味
' FieldNumber:=sortColumn => 「何列目を基準にするか」を指定
' SortAscending:=isAscending => 「昇順か降順か」を指定
End Subコードの重要ポイント
1. `ExcludeHeaderRows:=1`: これが最も重要です。これを知らないと、見出し行（「氏名」や「点数」という文字）までデータと一緒に並び替えられてしまい、表の構造が崩れてしまいます。
2. `FieldNumber`: 列の番号を数値で指定します。1列目なら `1` です。
3. 関数の分離: `ExecuteSort` のように、実際の処理を別の塊（サブ関数）に分けることで、コードの再利用性が高まり、読みやすくなります。これが「設計」の第一歩です。
3. 陥りやすい「3つの罠」と回避策
現場では、教科書通りにいかないことが多々あります。初心者が必ずと言っていいほどハマるポイントを教えましょう。
① セルの結合（Merged Cells）の罠
Wordの表で「セルを結合」している箇所があると、`Sort` メソッドは「構造が不規則です」というエラーを出し、即座に停止します。
- 対策: 並び替えを行う表には、原則として「結合されたセル」を含めない設計にしてください。もし結合が必要な場合は、結合を解除してからソートし、その後に再度結合するロジックを組む必要がありますが、これはかなり高度な処理になります。まずは「結合のない綺麗な表」を扱うことから始めましょう。
② データ型（テキスト vs 数値）の罠
Wordのソート機能は非常に賢いですが、たまに「数値」を「テキスト」として認識してしまうことがあります。
- 例えば、テキストとしてソートすると `1, 10, 2, 20` という順番になってしまいます（辞書順）。
- 対策: 列のデータが数値である場合、セルの内容が純粋な数字のみであることを確認してください。もし計算式などが混じっている場合は、一度テキストとして確定させる処理が必要になることがあります。
③ 表のインデックス間違い
`doc.Tables(1)` は「文書内の1番目の表」を指します。しかし、文書に複数の表がある場合、意図しない表を操作してしまうリスクがあります。
- 対策: 本格的なツールを作る際は、「特定の文字列（例：「売上データ」）の直後にある表を探す」といった、より精密なオブジェクト特定ロジックを組み込むのがプロの仕事です。
まとめ：ここをクリアすれば、Word VBAの基本はバッチリです
いかがでしたか？
「マクロの記録」で生成された複雑なコードを、たった数行の `tbl.Sort` に置き換える。この感覚を掴むことができれば、あなたはもう「記録の利用者」ではなく、「自動化の設計者」への階段を登り始めています。
今日学んだことの振り返り：
- `Selection` ではなく `Table` オブジェクトを直接操作する。
- `ExcludeHeaderRows` で見出し行を守る。
- セルの結合はソートの敵である。
一歩ずつ、確実に。
コードの背後にある「オブジェクトの動き」をイメージしながら、ぜひ手元のWordで試してみてください。エラーが出ても大丈夫。そのエラーこそが、あなたのエンジニアとしての血肉になります。
応援していますよ！
