導入：なぜVBAでWordの拡張書式を操作するのか
実務において、定型的な文書作成を自動化する際、単なる文字入力だけでは不十分なケースがあります。「印」の文字を丸で囲んだり、短いスペースに複数の文字を詰め込んだり、注釈を2行で挿入したりといった「拡張書式」の設定が求められる場面は少なくありません。手作業で行うとミスが発生しやすく、大量のドキュメントを作成する際には非常に手間がかかります。VBAを活用してこれらの設定を自動化できれば、文書の品質を均一に保ち、作業時間を大幅に短縮することが可能です。
基礎知識：Wordにおける拡張書式とは
Wordには、文字の配置や見栄えを調整する「拡張書式」という機能群があります。
囲い文字：特定の文字を記号（○や□など）で囲む機能。
組み文字：複数の文字を1文字分のスペースに凝縮して表示する機能。
割注：特定の文字列を2段組みにして小さく表示する機能。
これらはWordの「書式」メニューから設定可能ですが、VBAで操作する場合、Wordの「Rangeオブジェクト」の「CharacterUnit」や「EmphasisMark」といったプロパティ、あるいは「Fields」コレクションを駆使して制御することになります。
実装/解決策：VBAで制御するためのポイント
VBAからこれらの機能を呼び出すには、Wordの「Application」オブジェクトを操作する参照設定が必要です。ExcelからWordを操作する場合、Wordのライブラリ（Microsoft Word XX.X Object Library）を参照設定に追加しておくと、インテリセンス（入力補完）が効くため開発がスムーズになります。
特定の文字列に対して「囲い文字」などを設定するには、対象となるRangeオブジェクトを特定し、Wordの内部コマンドである「wdFieldEncloseChar」などのフィールドコードを利用するのが最も確実な手法です。
サンプルプログラム：Wordへの書式適用自動化
このコードは、Excel VBAからWordを起動し、新規文書に文字を入力した上で、囲い文字を設定する例です。
Sub CreateWordDocumentWithFormats()
‘ Wordアプリケーションの起動
Dim wdApp As Object
Dim wdDoc As Object
Set wdApp = CreateObject(“Word.Application”)
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Add
‘ テキストの挿入
Dim myRange As Object
Set myRange = wdDoc.Range
myRange.Text = “印”
‘ 囲い文字の設定（フィールドコードを利用）
‘ ※実際の業務では、対象箇所を選択してFields.Addを使用します
wdDoc.Fields.Add Range:=myRange, _
Type:=-1, _
Text:=”EQ \o\ad(\s\up 2(○),印)”, _
PreserveFormatting:=True
‘ オブジェクトの解放
Set myRange = Nothing
Set wdDoc = Nothing
Set wdApp = Nothing
MsgBox “Word文書に囲い文字を設定しました。”
End Sub
応用・注意点：現場で役立つ補足情報
1. フィールドコードの扱い：Wordの拡張書式は内部的に「EQフィールド」を使用していることが多いです。コード内で文字列を操作する際は、意図せずフィールドを壊さないように注意してください。
2. 互換性の問題：Officeのバージョンによって、拡張書式の内部実装が変わる場合があります。特に古いWord形式（.doc）と新しい形式（.docx）では挙動が異なる場合があるため、必ず作成対象の環境でテストを行ってください。
3. エラーハンドリング：Wordが既に起動している場合や、特定の文書が閉じられている場合など、オブジェクトの参照に失敗することがあります。必ず「On Error GoTo」などを活用し、途中で止まらない堅牢なコードを心がけましょう。
これらの機能を自動化ツールに組み込むことで、帳票作成や報告書作成の効率は劇的に向上します。ぜひ、ご自身の業務フローに合わせてカスタマイズしてみてください。
