導入：なぜルビの一括解除が重要なのか
資料作成の際、ルビ（ふりがな）を多用した文書を再編集することはありませんか？標準機能の「ルビ」ダイアログを使って一つずつ解除するのは、数が多いと非常に時間がかかります。さらに、ダイアログ経由では一度に処理できる数に制限があるため、長文であればあるほど作業は非効率になります。本記事では、Wordの置換機能を使ったテクニックと、VBA（マクロ）を使った一括解除の自動化手法を解説します。
基礎知識：Wordの「ルビ」の仕組み
Wordでルビを振ると、裏側では「フィールドコード」という特殊な命令文が生成されます。見た目には「漢字（かんじ）」と表示されていても、内部的には「EQフィールド」というコードで制御されています。そのため、単純に削除しようとしても、このコードが残ってしまい、レイアウトが崩れたり、ゴミのような記号が残ったりすることがあります。この構造を理解し、適切にフィールドを解除することが「きれいな文書」を作る鍵となります。
実装：置換を使った手動解除
まず、Wordの「置換」機能を活用してルビを外す方法です。
1. 文書内で [Alt] + [F9] キーを押し、フィールドコードを表示します。
2. [Ctrl] + [H] で「検索と置換」ダイアログを開きます。
3. 「オプション」から「ワイルドカードを使用する」にチェックを入れます。
4. 「検索する文字列」に「EQ ,()\)」と入力します。
5. 「置換後の文字列」に「\1」と入力し、すべて置換します。
※これにより、ルビの親文字だけを抽出し、フィールドの記述を消去できます。
サンプルプログラム：VBAでルビを瞬時に全解除する
置換操作を毎回行うのは面倒です。VBAを使えば、ボタン一つで文書内の全ルビを解除できます。以下のコードを標準モジュールに貼り付けて実行してください。
Sub RemoveAllRubies()
‘ 文書内のすべてのルビ（EQフィールド）を解除して親文字のみにする
Dim fld As Field
‘ 文書内のすべてのフィールドを巡回
For Each fld In ActiveDocument.Fields
‘ フィールドの種類がルビ（wdFieldRuby）かどうかを判定
If fld.Type = wdFieldRuby Then
‘ ルビを解除し、親文字だけを残す
fld.Unlink
End If
Next fld
MsgBox “すべてのルビを解除しました。”, vbInformation
End Sub
応用・注意点：現場でのトラブル回避
上記VBAコードの「fld.Unlink」は、フィールドコードを解除して「通常の文字列」に変換する強力な命令です。
注意点：
1. バックアップの取得： 一括解除は取り消し（Ctrl+Z）が効きにくい場合があります。必ず作業前にファイルのコピーを作成してください。
2. 意図しないフィールド： もし文書内に目次やページ番号などの他のフィールドが含まれている場合でも、このコードは「ルビのみ」を対象にするよう条件分岐（If文）を組んでいるため安全ですが、実行前にプレビュー確認を推奨します。
3. フォント設定： ルビを解除した際に親文字のフォントサイズやスタイルが微妙に変わる場合があります。解除後は文書全体を選択して、フォントを再設定することで仕上がりがより綺麗になります。
ルーチンワークこそ、こうした自動化のスキルが差を生みます。ぜひ日々のWord業務に取り入れてみてください。
