ルビを入力するためのマクロです。
１つの組み合わせだけを入力します。
▼このマクロでできること
「pen」に「ペン」とふりがなをふります。
penを検索して、見つかったときにふりがなを付けるようにしています。
本文中の文字列に対して処理をします。
▼マクロの解説
青文字の部分で、見つかった文字列に対して処理を繰り返します。
置換では実現できない処理（文字列の書式設定以外の処理）に対しては、このようにDo...Loopステートメントが便利ですね。
▼マクロ
Sub ルビの自動入力マクロ()
Dim myRange As Range '検索用Rangeオブジェクト
Dim myText As String 'ルビをふる文字列
Dim myRuby As String 'ルビの文字列
myText = "pen"
myRuby = "ペン"
'Rangeオブジェクト変数の設定
Set myRange = ActiveDocument.Range(0, 0)
'検索条件
With myRange.Find
.Text = myText
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
'ルビを付けるループ
Do While myRange.Find.Execute = True
myRange.PhoneticGuide Text:=myRuby
Loop
'オブジェクト変数の解放
Set myRange = Nothing
End Sub
▼関連記事
マクロコードの登録方法
ツールバーのボタン登録
初めての方へ（ブログの目次）
Wordマクロの便利な使い方一覧（１）
Wordマクロの便利な使い方一覧（２）
Wordマクロの便利な機能一覧（１）
Wordマクロの便利な機能一覧（２）