Word VBAを掌握する極限の知見：`Range.FormattedText`による書式付きテキスト高速転送の極意
Word VBAの自動化において、多くの開発者が陥る最初の、そして最も深刻なパフォーマンス・ボトルネックは「クリップボードの乱用」と「不要な画面描画・UIインタラクション」にある。
数千行に及ぶドキュメントの再構築、あるいは動的に生成されるテンプレートへのデータ流し込みにおいて、`.Copy` と `.Paste` をループ内で回す愚を犯していないだろうか。Windowsのクリップボードは、OS全体で共有される重厚なリソースであり、その内部でのシリアライズ・デシリアライズ処理は、VBAの実行速度を劇的に低下させる。
今回は、Wordオブジェクトモデルの深層に位置する `Range.FormattedText` プロパティを活用し、クリップボードを完全にバイパスして、書式（フォント、段落属性、インラインシェイプ等）を維持したままテキストを光速で転送するアーキテクチャを解説する。
—
1. なぜ `Copy / Paste` は悪なのか？ オブジェクトモデルの裏側
通常のVBAコードでは、次のような記述が散見される。
‘ 【アンチパターン】クリップボード依存の低速な実装
Selection.Copy
ActiveDocument.Range.Paste
このコードが実行されるとき、裏では何が起きているのか。
1. `Selection`（UIの選択範囲）がアクティブウィンドウからクリップボードへデータをプッシュする。この際、リッチテキスト（RTF）、HTML、プレーンテキストなど複数のフォーマットが生成・保持される。
2. Wordの描画エンジンとOSのクリップボードマネージャーの間でコンテキストスイッチが発生する。
3. 貼り付け先でクリップボードからデータをデシリアライズし、ドキュメントツリーに再構築する。
この一連のプロセスは、UIスレッドをブロックし、メモリリークの温床となる。さらに、`ScreenUpdating = False` を効かせても、クリップボード操作はOSレベルの割り込みを伴うため完全に隠蔽できない。
`FormattedText` という名の解脱
これに対する唯一にして最大の解法が `FormattedText` プロパティである。
`Range` オブジェクト同士のデータ転送において、`FormattedText` はテキストの文字列だけでなく、フォント、文字装飾、段落スタイル、さらには表の構造や埋め込みオブジェクトに至るまでの「バイナリ的な書式情報」を、メモリ上のポインタ操作に近い感覚で直接コピーする。
クリップボードは一切経由しない。OSのコンテキストスイッチも発生しない。純粋なWordのメモリ空間内だけで完結するため、実行速度は文字通り桁違い（体感で10倍以上）になる。
—
2. 実装アーキテクチャ：堅牢かつ高速な転送パターン
シニアエンジニアが実務で書くべきコードは、単に速いだけでなく、例外に強く、メモリのライフサイクルが完全に制御されていなければならない。
以下に、ソースとなる `Range` からターゲットの `Range` へ、書式を完全に維持したまま高速転送するプロシージャの模範解答を示す。
Option Explicit
”’
”’
Public Sub HighSpeedTransferFormattedText()
Dim appWord As Word.Application
Set appWord = Application
‘ パフォーマンス最適化の基本三原則
With appWord
.ScreenUpdating = False
.Calculation = wdCalculationManual
.EnableEvents = False
End With
Dim startTime As Double
startTime = Timer
On Error GoTo ErrorHandler
Dim doc As Document
Set doc = ActiveDocument
‘ 転送元Rangeの定義（例：ドキュメント内の特定セクションやブックマーク）
Dim rngSource As Range
Set rngSource = doc.Sections(1).Range
‘ 転送先Rangeの定義（例：ドキュメント末尾への追記）
Dim rngTarget As Range
Set rngTarget = doc.Content
rngTarget.Collapse wdCollapseEnd
‘ =========================================================================
‘ 【核心】FormattedTextプロパティによるダイレクト・メモリ転送
‘ =========================================================================
rngTarget.FormattedText = rngSource.FormattedText
Debug.Print “転送完了時間: ” & Format(Timer – startTime, “0.000”) & ” 秒”
CleanUp:
‘ 状態の確実な復元（エラー発生時も必ず実行する）
With appWord
.ScreenUpdating = True
.Calculation = wdCalculationAutomatic
.EnableEvents = True
End With
‘ オブジェクトの明示的解放
Set rngTarget = Nothing
Set rngSource = Nothing
Set doc = Nothing
Set appWord = Nothing
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “システムエラー”
Resume CleanUp
End Sub
コードの解説とアーキテクチャ的意図
1. 環境の凍結（Performance Tuning）:
`ScreenUpdating`, `Calculation`, `EnableEvents` の無効化は、Word VBA自動化の鉄則である。特に `Calculation = wdCalculationManual` は、転送先にフィールドコード（目次や数式など）が含まれていた場合、不要な再計算が走るのを防ぐために極めて重要である。
2. `Range.Collapse` の活用:
ターゲットをドキュメントの末尾に設定する際、`Content` 全体を上書きしないよう `wdCollapseEnd` でレンジを一点に縮退させている。これにより、既存のドキュメント構造を破壊せずにデータをインジェクトできる。
3. 完全なクリーンアップ:
VBAのガベージコレクションは信用してはならない。プロシージャの終了時（エラーパス含む）には、必ず `Set xxx = Nothing` を明示し、COMコンポーネントの参照カウントをデクリメントする。
—
3. レガシー環境・システム連携における応用知見
この `FormattedText` テクニックは、単なるドキュメント内処理にとどまらず、外部システム（データベースやExcel、Web API）との連携基盤においても絶大な効力を発揮する。
応用例：外部テンプレートからのパーツ動的アセンブル
大規模な自動生成システムにおいて、章ごとに分かれた複数の独立したWordファイル（パーツ群）から、最終的な統合ドキュメントを高速に構築する要件を考えてみよう。
”’
”’
Public Sub AppendPartDocument(ByRef targetDoc As Document, ByVal partFilePath As String)
Dim srcDoc As Document
‘ 外部ファイルをバックグラウンド（Visible:=False）で開くことで描画コストを完全に排除
Set srcDoc = Documents.Open(FileName:=partFilePath, ReadOnly:=True, Visible:=False)
Dim rngTarget As Range
Set rngTarget = targetDoc.Content
rngTarget.Collapse wdCollapseEnd
‘ 外部ファイルのRange全体をターゲットの末尾に直結
rngTarget.FormattedText = srcDoc.Content.FormattedText
‘ 外部ドキュメントを保存せずに即座に閉じる
srcDoc.Close SaveChanges:=wdDoNotSaveChanges
Set srcDoc = Nothing
Set rngTarget = Nothing
End Sub
エンジニアリング上の注意点
- ファイルの非表示オープン: `Documents.Open` の引数で `Visible:=False` を指定している点がポイントである。これにより、Wordのマルチドキュメントウィンドウが不意に点滅したり、フォーカスが奪われたりするUI上のストレスを完全に排除できる。
- スタイルの競合問題: 転送元と転送先のドキュメント間で「同じ名前だが定義が異なるスタイル（例：標準スタイル）」が存在する場合、`FormattedText` は転送元のスタイル定義を優先、あるいはターゲット側の定義にマージしようとする挙動を示す。厳密なスタイル統制が必要なエンタープライズ環境では、事前に両者のスタイル名を正規化するか、`Style` プロパティを転送後に明示的に再適用するラッパー関数を挟む設計が望ましい。
—
総括
Word VBAにおけるパフォーマンスチューニングの極意は、「いかにOSやUIの介在を排除し、Wordの内部メモリ空間（COM空間）内だけで処理を完結させるか」に尽きる。
`Range.FormattedText` は、そのための最も強力で、かつ見落されがちな武器の一つである。クリップボード依存の脆弱で低速なコードから脱却し、極限まで最適化された堅牢なアーキテクチャを構築してほしい。真のエンジニアリングとは、コードの行数ではなく、背後にあるリソースの動きを完全に支配することから始まる。
