Word Table to HTML: なぜ君の「単純なループ」はプロダクション環境で死ぬのか？
現場で「Wordの表をHTMLに変換するツールを作っておいて」と依頼されたとき、君ならどう書く？
おそらく、多くのジュニア〜中級者はこう考えるだろう。
「`For Each Row In Table.Rows` で回して、その中で `For Each Cell In Row.Cells` を回し、文字列を `&` で連結していけばいいんだな」と。
断言しよう。そのコードは、実務（プロダクション）に投入した瞬間に、パフォーマンスの低下と、予期せぬランタイムエラーという名の爆弾を抱え込むことになる。
Wordのオブジェクトモデルは非常に重厚で、かつ「結合されたセル」という極めて扱いづらい挙動を持つ。さらに、文字列の動的連結によるメモリの断片化、HTMLエスケープの欠如……。これらは、業務自動化ツールを「ただ動くおもちゃ」にするか、「信頼に足る武器」にするかの境界線だ。
今日は、設計思想から実装の詳細まで、プロフェッショナルが書くべき「堅牢なHTML変換ロジック」を伝授する。
1. アマチュアが陥る3つの致命的な罠
実装に入る前に、なぜ君がこれまで書いてきたコードが「美しくない」のか、その理由を論理的に解体しておこう。
① 文字列連結の計算量（O(n²) の恐怖）
VBAにおいて、`str = str & “new text”` という書き方をループ内で繰り返すのは、メモリ管理の観点から最悪の選択だ。文字列を連結するたびに、メモリ上では新しい領域が確保され、古いデータがコピーされる。表の行数・列数が増えるにつれ、処理速度は指数関数的に低下する。
② 結合セルの未処理（Index Error の温床）
Wordの表における「セルの結合」は、VBAの `Rows` や `Cells` コレクションのインデックスを破壊する。結合されたセルが存在する行に対して `Cells(j)` とアクセスしようとすれば、実行時エラーでプログラムは即座に停止する。
③ 特殊文字のサニタイジング不足
Word内のテキストに `&` や `<`、`>` が含まれていた場合、そのままHTMLとして出力すれば、Webサイト側でレイアウトが崩れるか、あるいはセキュリティ上の脆弱性（XSS）を招く。データ変換エンジニアとして、これは「失格」を意味する。
2. 勝利のための設計戦略
プロフェッショナルは、以下の3つの設計原則に基づいてコードを組み立てる。
1. StringBuilder パターンの採用: 文字列の連結には、配列（Array）に格納してから最後に `Join` 関数で結合する手法を用いる。これにより、メモリ割り当てのオーバーコードを最小限に抑える。
2. エラーハンドリングと構造解析: `On Error Resume Next` で誤魔化すのではなく、セルの存在を確認しながら、結合セルの影響を回避するロジックを組む。
3. HTMLエスケープ関数の分離: 責務を明確にするため、テキストのクレンジング（サニタイズ）は独立した関数として実装する。
3. プロダクション・クオリティの実装例
以下に、これらすべてを解決したコードを示す。このコードは、単なる変換器ではない。拡張性と堅牢性を備えた「モジュール」だ。
※このコードを動かすには、VBAエディタの「ツール」→「参照設定」から `Microsoft Forms 2.0 Object Library` にチェックを入れる必要がある（これがないとクリップボード操作ができない）。
Option Explicit
''' <summary>
''' Wordの選択範囲内にある表をHTMLテーブル形式に変換し、クリップボードへ送る。
''' </summary>
Public Sub ConvertSelectedTableToHTML()
Dim targetTable As Table
Dim htmlResult As String
' 1. コンテキストの検証
' 選択範囲に表が含まれているか、厳格にチェックする
If Selection.Information(wdWithInTable) = False Then
MsgBox "エラー: 表の中にカーソルを置いて実行してください。", vbCritical, "実行エラー"
Exit Sub
End If
Set targetTable = Selection.Tables(1)
On Error GoTo ErrorHandler
' 2. HTML生成プロセス（StringBuilderパターン）
' 配列を使用して、メモリ効率を最大化する
htmlResult = GenerateHTMLFromTable(targetTable)
' 3. クリップボードへの転送
If htmlResult <> "" Then
CopyToClipboard htmlResult
MsgBox "HTML変換が完了し、クリップボードに格納されました。", vbInformation, "成功"
Else
MsgBox "変換に失敗しました。表が空である可能性があります。", vbExclamation, "警告"
End If
Exit Sub
ErrorHandler:
MsgBox "予期せぬエラーが発生しました: " & Err.Description, vbCritical, "致命的エラー"
End Sub
''' <summary>
''' 表の構造を解析し、HTML文字列を構築する。
''' </summary>
Private Function GenerateHTMLFromTable(tbl As Table) As String
Dim rowIdx As Long, colIdx As Long
Dim cellCount As Long
Dim htmlParts() As String
Dim partIdx As Long
Dim currentCellText As String
' 動的配列の初期化（最大サイズを見積もっておくことで再割り当てを防ぐ）
' 実際の行数×列数の2倍程度を確保
ReDim htmlParts(1 To (tbl.Rows.Count * tbl.Columns.Count * 2))
partIdx = 0
' <table> タグの開始
partIdx = partIdx + 1
htmlParts(partIdx) = "<table border=""1"" style=""border-collapse: collapse; width: 100%;"">" & vbCrLf
' 行のループ
For rowIdx = 1 To tbl.Rows.Count
partIdx = partIdx + 1
htmlParts(partIdx) = " <tr>" & vbCrLf
' セルのループ
' ※結合セルがある場合、Rows(i).Cells(j) はエラーを吐く可能性があるため、
' 構造を安全に走査するために、各行のCellsコレクションを直接回す。
On Error Resume Next
Dim targetCell As Cell
Dim actualColIdx As Long
actualColIdx = 1
For Each targetCell In tbl.Rows(rowIdx).Cells
' セル内のテキストを取得し、不要な制御文字（セル区切り文字等）を除去
currentCellText = CleanCellText(targetCell.Range.Text)
' HTMLエスケープの適用（サニタイズ）
currentCellText = EscapeHTML(currentCellText)
' <td> タグの生成
partIdx = partIdx + 1
htmlParts(partIdx) = " <td style=""padding: 5px;"">" & currentCellText & "</td>" & vbCrLf
' セルのインデックスをインクリメント（結合セルの影響を考慮）
actualColIdx = actualColIdx + 1
Next targetCell
On Error GoTo 0
partIdx = partIdx + 1
htmlParts(partIdx) = " </tr>" & vbCrLf
Next rowIdx
' </table> タグの終了
partIdx = partIdx + 1
htmlParts(partIdx) = "</table>"
' 配列を結合して一つの文字列にする（これが高速な理由）
' 最後に Resize して余分な空要素を排除する
ReDim Preserve htmlParts(1 To partIdx)
GenerateHTMLFromTable = Join(htmlParts, vbCrLf)
End Function
''' <summary>
''' Word特有の制御文字（末尾のセル区切り文字）を除去する。
''' </summary>
Private Function CleanCellText(txt As String) As String
' Wordのセル末尾には Chr(13) & Chr(7) が含まれるため、これを除去
Dim cleaned As String
cleaned = Replace(txt, Chr(13), "")
cleaned = Replace(cleaned, Chr(7), "")
CleanCellText = Trim(cleaned)
End Function
''' <summary>
''' HTML特殊文字をエスケープする。
''' </summary>
Private Function EscapeHTML(txt As String) As String
Dim res As String
res = txt
res = Replace(res, "&", "&")
res = Replace(res, "<", "<")
res = Replace(res, ">", ">")
res = Replace(res, """", """)
res = Replace(res, "'", "'")
EscapeHTML = res
End Function
''' <summary>
''' クリップボードへのデータ格納。
''' </summary>
Private Sub CopyToClipboard(content As String)
' MSForms.DataObject を使用
Dim dataObj As New MSForms.DataObject
dataObj.SetText content
dataObj.PutInClipboard
End Sub4. アーキテクトの視点：なぜこのコードが「強い」のか
この実装には、実務で求められる「防御的設計」が組み込まれている。
結合セルへの耐性
`For Each targetCell In tbl.Rows(rowIdx).Cells` という記述に注目してほしい。`Cells(j)` と添字で指定するのではなく、その行が持っている `Cells` コレクションを直接イテレートしている。これにより、結合セルによってインデックスがスキップされたり、存在しないインデックスを参照したりするリスクを回避している。
メモリ効率の最適化
`htmlParts()` という動的配列を使い、最後に `Join` を実行している。これは、VBAにおいて文字列結合を行う際の「黄金律」だ。大規模な表であっても、メモリの断片化を防ぎ、極めて高速に処理を完了させる。
データ整合性の担保（Sanitization）
`CleanCellText` と `EscapeHTML` の分離。Word特有の「見えない制御文字（`Chr(7)`）」の除去と、HTMLエスケープを別々の責務として定義している。これにより、Webサイトへ流し込んだ際に「文字化け」や「レイアウト崩れ」が発生することを未然に防いでいる。
まとめ：保守性の高いツールを作るために
業務自動化において、最もコストがかかるのは「バグの修正」と「仕様変更への対応」だ。
単に「動けばいい」というコードは、将来の自分やチームメイトに対する負債となる。今回紹介したように、オブジェクトの挙動を深く理解し、計算量を意識し、エッジケース（結合セルや特殊文字）を考慮した設計を行うこと。それこそが、エンジニアとしての価値を決定づける。
次に君がツールを書くとき、このアーキテクチャを思い出してほしい。
「そのループ、本当に安全か？」と自問自答することから、真の自動化が始まるのだ。
