やあ、業務自動化の世界へようこそ！
Word VBAの基本をマスターし、マクロの記録から一歩踏み出したいあなたに向けて、今日も「本物のVBAプログラミング」の楽しさを伝えていきますね。
今回のテーマは「引用符のスマートクォート化（校正支援）ツール」です。
キーボードで打ち込んだまっすぐな引用符（`”` や `’`）は「ストレートクォート」と呼ばれますが、書籍や正式なビジネス文書では、開く向き・閉じる向きが美しい「スマートクォート（`“` `”` や `‘` `’`）」に整えられているのがプロの仕事です。
「単なる置換でしょ？」と思うかもしれませんが、実はここには「前後の文脈（文頭なのか文末なのか）を判別する」という、プログラミングの本質が詰まっています。ここをクリアすれば、Word VBAの基本とオブジェクト操作の真髄はバッチリですよ！
一緒に最高品質のツールを組み上げていきましょう。
—
1. なぜ「単純な置換」では失敗するのか？
まず、初学者が陥りやすい罠についてお話しします。
Wordの標準機能や、単純な`Replace`関数で `”` を `“` に置換してしまうと、「開始引用符」も「終了引用符」もすべて同じ形（`“`）になってしまいます。
【誤った一括置換の例】
“Hello World” —> “Hello World“ （閉じ側も開きマークになってしまう！）
美しい文書を作るためには、以下のような「文脈のルール」をコードに教え込む必要があります。
【正しく判断されたスマートクォート】
“Hello World” （開き：直前がスペースや文頭 / 閉じ：直前が文字）
It’s a cat. （アポストロフィ：単語の途中の「’」は閉じ引用符「’」と同じ形）
これを実現するのが、Word VBAが誇る「ワイルドカード検索（Word版の正規表現エンジン）」と「Range（範囲）オブジェクト」の組み合わせです。
—
2. アーキテクチャの極意：メモリとDOMを意識する
コードを書く前に、伝説のエンジニアとして1つ重要なアドバイスをさせてください。
Wordの文書は、単なるテキストデータではなくDOM（Document Object Model）という複雑な階層構造（文字サイズ、フォント、装飾などの情報）を持っています。
VBAで文字列を処理する際、文書全体を文字列として抽出して`VBScript.RegExp`等で処理して書き戻すと、文字の装飾（太字や色）がすべて消去されるという大事故につながります。
そのため、Word VBAの自動化では「ドキュメントのRange（範囲）を保ったまま、Word組み込みのワイルドカード検索エンジン（`Find`オブジェクト）を駆使する」のが最も安全で、かつ圧倒的に高速です。
—
3. 完全版：スマートクォート自動変換マクロ
それでは、実際に使えるVBAコードをご覧に入れましょう。
VBE（Visual Basic Editor）を開き、標準モジュールに以下のコードを貼り付けてみてください。
Option Explicit
‘ ==============================================================================
‘ 処理名：SmartQuotesConverter
‘ 概要 ：文書内のストレートクォートを文脈解析し、正確なスマートクォートへ変換する
‘ 著者 ：業務自動化チーフアーキテクト
‘ ==============================================================================
Public Sub SmartQuotesConverter()
‘ パフォーマンス最適化：画面更新の停止とUndo（元に戻す）ブロックの生成
Application.ScreenUpdating = False
Dim undoObj As UndoRecord
Set undoObj = Application.UndoRecord
undoObj.StartCustomRecord “スマートクォート変換”
On Error GoTo ErrorHandler
Dim docRange As Range
Set docRange = ActiveDocument.Content
‘ ————————————————————————–
‘ Phase 1: 二重引用符 ( ” ) の変換処理
‘ ————————————————————————–
‘ [1-1] 開き二重引用符 (“) の変換
‘ ルール：直前が「半角/全角スペース」「タブ」「改行」「開始括弧」の後の ”
ExecuteWildcardReplace _
TargetRange:=docRange.Duplicate, _
FindPattern:=”([ \(<\t^13])""", _
ReplacePattern:="\1“"
' 文頭（ファイルの先頭）にある " を変換
ExecuteWildcardReplace _
TargetRange:=docRange.Duplicate, _
FindPattern:="^"""", _
ReplacePattern:="“"
' [1-2] 残った " をすべて閉じ二重引用符 (”) へ変換
ExecuteWildcardReplace _
TargetRange:=docRange.Duplicate, _
FindPattern:="""", _
ReplacePattern:="”"
' --------------------------------------------------------------------------
' Phase 2: 単一引用符 ( ' ) および アポストロフィ の変換処理
' --------------------------------------------------------------------------
' [2-1] 開き単一引用符 (‘) の変換
' ルール：直前が「スペース」「タブ」「改行」「開始括弧」の後の '
ExecuteWildcardReplace _
TargetRange:=docRange.Duplicate, _
FindPattern:="([ \(<\t^13])'", _
ReplacePattern:="\1‘"
' 文頭（ファイルの先頭）にある ' を変換
ExecuteWildcardReplace _
TargetRange:=docRange.Duplicate, _
FindPattern:="^'", _
ReplacePattern:="‘"
' [2-2] 残った ' をすべて閉じ単一引用符 / アポストロフィ (’) へ変換
ExecuteWildcardReplace _
TargetRange:=docRange.Duplicate, _
FindPattern:="'", _
ReplacePattern:="’"
' 完了通知
MsgBox "引用符のスマートクォート化が完了しました！", vbInformation, "校正完了"
CleanUp:
' 画面更新の再開とUndoの終了（後始末）
undoObj.EndCustomRecord
Application.ScreenUpdating = True
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました: " & Err.Description, vbCritical, "エラー"
Resume CleanUp
End Sub
' ==============================================================================
' 共通サブルーチン：ワイルドカード検索・置換の実行エンジン
' ==============================================================================
Private Sub ExecuteWildcardReplace( _
ByVal TargetRange As Range, _
ByVal FindPattern As String, _
ByVal ReplacePattern As String)
With TargetRange.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = FindPattern
.Replacement.Text = ReplacePattern
.Forward = True
.Wrap = wdFindStop ' 範囲の最後まで行ったら停止
.MatchWildcards = True ' ワイルドカード（正規表現風）を有効化
.Execute Replace:=wdReplaceAll
End With
End Sub
---
4. プロの技を解剖する：コード解説と学びのポイント
さて、コードの中に散りばめられた「プロのこだわり」を解説していきましょう。
① オブジェクトのライフサイクルとパフォーマンス管理
コードの最初と最後に注目してください。
Application.ScreenUpdating = False
‘ （処理）
Application.ScreenUpdating = True
処理中の画面描画を停止しています。これがないと、画面がチラチラと高速で点滅し、処理速度が大幅に低下します。
また、`Application.UndoRecord` を使って一連の置換動作を「1つの操作」としてまとめています。これにより、ユーザーが「Ctrl + Z」を押したときに、一発で全置換前の状態に戻せるという、思いやりのあるUI設計になります。
② ワイルドカード（Word版正規表現）の仕組み
Wordのワイルドカード検索は、一般的な正規表現と少し記法が異なりますが、仕組みは同じです。
- `([ \(<\t^13])"`
- `(…)` はグループ化（キャプチャ）です。
- `[ … ]` は指定した文字のいずれか（スペース、`(`、`<`、タブ`\t`、段落記号`^13`）。
- つまり「特定の区切り文字の直後にあるダブルクォーテーション」を捉えています。
- `\1“`
- `\1` はグループ化された1番目の文字（スペースなど）をそのまま保持し、引用符だけを `“` に差し替えるというテクニックです。
【キャプチャ置換のイメージ】
検索時: [スペース][“] –> グループ1=[スペース]
置換後: \1“ –> [スペース][“] （スペースを消さずに引用符だけ変更！）
③ 2段階アプローチ（アルゴリズム）の美しさ
「開く引用符」の条件（スペースの直後など）を先に処理してしまい、「残った引用符はすべて閉じる引用符（またはアポストロフィ）である」という消去法をとっています。
これにより、複雑な条件分岐のループを書く必要がなくなり、実行速度が劇的に上がります。
—
5. 初学者がハマりやすいエラーと対処法
VBAを書いていて「うまく動かない！」となったときは、以下のポイントをチェックしてみてください。
1. `MatchWildcards = True` の罠
ワイルドカードを有効にしている時、`^p`（段落記号）は使えません。代わりに `^13`（ASCIIコード13番＝キャリッジリターン）を使う必要があります。ここ、非常によくハマるポイントです！
2. `TargetRange.Duplicate` の理由
`TargetRange` をそのまま渡すと、置換処理が走った後に `Range` の位置が勝手に移動・縮小してしまいます。`.Duplicate` を使って「参照のコピー」を渡すことで、常に文書全体を正しく操作できます。
—
結び：Word VBAを掌握したあなたへ
お疲れ様でした！
今回作成したツールは、単に文字を置換するだけでなく、「テキストの構造（文脈）を判断し、文書の書式を崩さずに高速処理する」という、Word VBAのエッセンスが詰まった非常に高度なツールです。
このコードの構造（`UndoRecord`の管理、`Range`の複製、ワイルドカードエンジンの共通化）は、他のあらゆる校正ツール（例：全角数字の半角化、表記揺れの修正など）にそのまま応用できます。
ここをクリアしたあなたのWord VBAの基礎力は、すでに実務レベルを超えていますよ。自信を持って、どんどん業務の自動化に挑戦していってくださいね！
応援しています！
