なぜWordのルビ設定をVBAで自動化するのか
実務において、顧客名簿や社内資料に大量の「ふりがな」を振らなければならない場面はありませんか？Wordの標準機能で一つずつルビを振る作業は、件数が多いと非常に非効率であり、ヒューマンエラーも発生しやすくなります。
今回は、Wordの標準機能である「ルビ設定」をVBAで自動化する方法を解説します。大量の定型文書を扱う事務職や、名簿作成業務を効率化したい方にとって、この技術は強力な武器となります。
基礎知識：Wordのルビ機能とVBAの関係
Wordのルビは、文字に対して「PhoneticGuide」というオブジェクトとして設定されます。通常は[ホーム]タブの[ルビ]ボタンから設定しますが、VBAでは「Rangeオブジェクト」の「PhoneticGuideメソッド」を使用することで、プログラムから動的にルビを付与することが可能です。
ポイントは、対象となる文字列をRange（範囲）として正しく特定することです。
実装のロジック
VBAでルビを振るには、以下の手順を踏みます。
1. ルビを振りたい対象の範囲（Range）を特定する。
2. そのRangeに対して「PhoneticGuide」メソッドを実行する。
3. 引数で「ルビの文字列（Text）」、「フォントサイズ」、「配置（中央揃えなど）」を指定する。
サンプルプログラム
以下のコードは、文書内の指定したキーワードに対して自動的にルビを振る実用的なサンプルです。Wordの標準機能では難しい「一括置換的なルビ付け」が可能です。
Sub AutoAddRuby()
‘ WordのRangeオブジェクトを定義
Dim rng As Range
Set rng = ActiveDocument.Content
‘ 検索対象とする文字列
Dim targetText As String
targetText = “顧客名”
‘ 文書全体からキーワードを検索してルビを振る
With rng.Find
.Text = targetText
.Forward = True
.Wrap = wdFindContinue
Do While .Execute
‘ 見つかった範囲に対してルビを付与
‘ 引数: Text(ルビ), Alignment(配置), Raise(高さ), FontSize(サイズ)
rng.PhoneticGuide Text:=”コキャクメイ”, _
Alignment:=wdPhoneticGuideAlignmentCenter, _
Raise:=11, _
FontSize:=7
‘ 検索範囲を次に進める
rng.Collapse Direction:=wdCollapseEnd
Loop
End With
MsgBox “ルビの付与が完了しました。”
End Sub
応用・注意点：現場で陥りやすい罠
1. 環境によるルビの高さ調整：ルビの高さ（Raise引数）は、フォントや行間設定によって見え方が変わることがあります。実務では、必ず一度試し刷りをしてバランスを確認してください。
2. 既存ルビとの重複：既にルビが振られている箇所に対して再度プログラムを実行すると、エラーになるか意図しない挙動を示すことがあります。事前にルビを解除する処理を入れるか、対象範囲を慎重に選定することが重要です。
3. 誤変換の防止：VBAで自動付与する場合、辞書にない固有名詞などは誤ったルビが振られる可能性があります。大量処理の後には、必ず目視チェックを怠らないようにしましょう。
自動化はあくまで「補助」です。最後の確認まで含めて効率的なフローを構築してください。
