こんにちは！Word VBAの世界へようこそ。
マクロの記録ボタンを押すだけのステージから抜け出し、「自分の手でドキュメントを意のままに操りたい」と願うあなたへ。今日は、実務で間違いなく役立つ「外部CSVファイルを読み込み、Wordの表として美しく出力する自動化ツール」の作り方を解説します。
「Excelなら簡単だけど、Wordでテーブルを動的に作るなんて難しそう……」
そんな不安を持っていませんか？ 大丈夫。ここをクリアすれば、Word VBAのオブジェクト構造の基本はバッチリです！優しく、そして本質的なところまで丁寧に紐解いていきましょう。
—
1. なぜ「Word×CSV」の自動化が必要なのか？
業務の中で、こんな面倒な作業が発生していませんか？
- 「売上データ（CSV）を毎月Wordのフォーマットに手作業で貼り付けている」
- 「表の行数が変わるたびに、セルを追加したり結合したりして発狂しそうになる」
これをVBAで一刀両断します。FileSystemObject（FSO）でCSVを読み込み、Wordの `Tables.Add` メソッドで一瞬にして表を構築する。この流れをマスターすれば、あなたの作業時間は「数時間」から「数秒」へと劇的に短縮されます。
—
2. 開発の全体像と心構え
今回のツールを作るにあたり、以下のステップを踏みます。
1. 環境の準備（参照設定について）
2. CSVファイルの読み込み（FSOの召喚）
3. Word文書への表の動的生成とデータ流し込み
ここで一つ、シニアエンジニアからの重要なアドバイスです。
Word VBAにおいて、「画面の描画（ScreenUpdating）」と「オブジェクトの選択（Selection）」は諸悪の根源になり得ます。`.Select` を使ってカーソルをあちこち動かすコードは、動作が遅くなるだけでなく、エラーの温床です。今回は、極力 `.Select` を排除したモダンで堅牢なコードを書き上げます。
—
3. 実装コード：CSVをWordの表に変換するマクロ
以下のコードを、WordのVBAエディタ（`Alt + F11` で起動）の標準モジュールに貼り付けてください。
Option Explicit
‘ =====================================================================
‘ 処理名: CSVデータを読み込み、アクティブ文書に表として出力する
‘ 前提条件: Cドライブの直下に “data.csv” がカンマ区切りで存在すること
‘ =====================================================================
Sub ImportCsvToWordTable()
‘ 1. 変数の宣言（オブジェクトの型を明確にするのがプロの流儀）
Dim fso As Object
Dim ts As Object
Dim csvPath As String
Dim lineData As String
Dim rowValues() As String
Dim targetTable As Table
Dim rowCount As Long
Dim colCount As Long
Dim i As Long, j As Long
‘ 画面描画を停止してパフォーマンスを爆発的に向上させる
Application.ScreenUpdating = False
‘ 読み込むCSVファイルのパス（環境に合わせて変更してください）
csvPath = “C:\data.csv”
‘ 2. FileSystemObjectの生成（外部ファイル操作の王様）
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ ファイルが存在するかチェックする優しさを忘れない
If Not fso.FileExists(csvPath) Then
MsgBox “指定されたパスにCSVファイルが見つかりません：” & vbCrLf & csvPath, vbCritical, “エラー”
GoTo CleanUp
End If
‘ CSVファイルを読み込み専用でオープン
Set ts = fso.OpenTextFile(csvPath, 1) ‘ 1 = ForReading
‘ 3. データの行数と列数をカウントするための前準備
‘ ※今回はシンプルにするため、全行を配列に読み込んで処理します
Dim allLines() As String
Dim lineIndex As Long
lineIndex = 0
Do Until ts.AtEndOfStream
ReDim Preserve allLines(lineIndex)
allLines(lineIndex) = ts.ReadLine
lineIndex = lineIndex + 1
Loop
ts.Close
‘ データが空っぽの場合のガード
If lineIndex = 0 Then
MsgBox “CSVファイルにデータが記載されていません。”, vbExclamation, “通知”
GoTo CleanUp
End If
‘ 4. 表の規模（行数・列数）を決定する
rowCount = lineIndex
‘ 1行目を基準に列数を決定（カンマの数 + 1）
rowValues = Split(allLines(0), “,”)
colCount = UBound(rowValues) + 1
‘ 5. Word文書の末尾に表を動的に追加する
‘ Selection.Range ではなく、文書の末尾（Content.End）を指定するのがモダン
Set targetTable = ActiveDocument.Tables.Add( _
Range:=ActiveDocument.Content.Paragraphs(ActiveDocument.Content.Paragraphs.Count).Range, _
NumRows:=rowCount, _
NumColumns:=colCount)
‘ 表のデザイン（スタイル）を整える（お洒落なグリッドを採用）
targetTable.Style = “テーブル (グリッド)”
targetTable.Rows.AllowBreakAcrossPages = True ‘ ページ跨ぎを許可
targetTable.HeadingFormat = True ‘ 1行目をタイトル行（見出し）に設定
‘ 6. データを流し込む（ネストしたループ処理）
For i = 0 To rowCount – 1
‘ 1行分のデータをカンマで分解
rowValues = Split(allLines(i), “,”)
For j = 0 To UBound(rowValues)
‘ Wordのセル指定は 1始まり なので (i + 1, j + 1) になることに注意！
‘ 餘計な前後のスペースやダブルクォーテーションをトリムすると親切
targetTable.Cell(i + 1, j + 1).Range.Text = Trim(Replace(rowValues(j), “”””, “”))
Next j
Next i
‘ ヘッダー行のデザインを強調（背景色を薄いグレーにするなど）
For j = 1 To colCount
targetTable.Cell(1, j).Shading.BackgroundPatternColor = wdColorLightGray
Next j
MsgBox “CSVデータの表への展開が完了しました！”, vbInformation, “成功”
CleanUp:
‘ 7. オブジェクトの解放と画面描画の復元（メモリリークを防ぐ）
Set ts = Nothing
Set fso = Nothing
Set targetTable = Nothing
Application.ScreenUpdating = True
End Sub
—
4. コードの重要ポイント解説（ここが分かれば怖くない！）
① FileSystemObject (FSO) の活用
Excel VBAでもお馴染みの `Scripting.FileSystemObject` ですが、Word VBAでも外部ファイルを扱う際には最強のパートナーです。`CreateObject` を使うことで、参照設定（ライブラリの追加）の手間を省き、どのパソコンでも動くポータブルなコードになります。
② `.Tables.Add` による動的生成
Set targetTable = ActiveDocument.Tables.Add(Range:=…, NumRows:=rowCount, NumColumns:=colCount)
ここで指定した行数（`NumRows`）と列数（`NumColumns`）に基づいて、Word上に一瞬で綺麗なグリッドが生成されます。後から「行が足りない！」となっても `targetTable.Rows.Add` で動的に追加できますが、最初から行数を計算して作った方が圧倒的に高速です。
③ 致命的な罠：「1始まり」のインデックス
ここが初心者が一番ハマるポイントです。
- Array（配列）やSplit関数は、基本「0始まり」（0番目、1番目……）です。
- WordのCell（セル）は、「1始まり」（1行目1列目、1行目2列目……）です。
そのため、ループ変数 `i` や `j` をそのまま使うとズレが生じます。コード内で `Cell(i + 1, j + 1)` としているのは、この「0と1のギャップ」を美しく埋めるためのテクニックです。
—
5. 陥りやすいエラーと対策
- エラー424「オブジェクトが必要です」
- 原因: 変数の宣言漏れや、`ActiveDocument` が開いていない状態で実行した時に起きがちです。必ず Word文書を開いた状態でマクロを実行してください。
- 文字化けが発生する
- 原因: 読み込んだCSVファイルが Shift-JIS（ANSI）ではなく UTF-8 で保存されている場合、FSOの標準読み込みで文字化けすることがあります。実務でUTF-8のCSVを扱う場合は、ADODB.Stream オブジェクトを使って文字コードを指定して読み込むアプローチが必要になります。（これについては、また別の機会に深く解説しましょう！）
—
まとめ
お疲れ様でした！今回は「CSVを読み込み、Wordの表へ動的に流し込む」という、実務に直結するテクニックを解説しました。
- 画面描画を止めて高速化する (`ScreenUpdating = False`)
- 不要な `.Select` を排除してスマートにオブジェクトを操作する
- 配列（0始まり）とWordのセル（1始まり）のインデックスの違いを理解する
ここをクリアしたあなたなら、もう「Word VBAの初学者」とは言わせません立派な中級者エンジニアへの道を歩んでいます。ぜひ、ご自身の業務データで試してみてくださいね。
それでは、また次の知見でお会いしましょう！Happy Coding!
