マクロでルビ振りをするときの注意(Word)

Word VBA のバグを発見したので、ここで盛大に晒しますｗ

[Range].PhoneticGuideメソッドでルビを振る

まず、次のようなドキュメント（笑）を用意する。

f:id:akashi_keirin:20200124074659j:plain

選択部分を見たらわかるように、フォントは「ＭＳ明朝」。

んで、こいつに、次のリスト１を実行する。

リスト１

Private Sub TestPhoneticGuide()
  Const MS_P_MINGZHAO As String = "ＭＳ Ｐ明朝"
  Call Selection.Range.PhoneticGuide( _
                         Text:="とも", _
                         Alignment:=wdPhoneticGuideAlignmentOneTwoOne, _
                         Raise:=10, _
                         FontSize:=5, _
                         FontName:=MS_P_MINGZHAO)
End Sub

[Range].PhoneticGuideメソッドを用いて、「強敵」という親文字に、5ポイントのＭＳＰ明朝で「とも」とルビを振るコード。

f:id:akashi_keirin:20200124074734g:plain

こうなる。

で、「強敵」の部分を調べると、

f:id:akashi_keirin:20200124074702j:plain

このように、ちゃんと5ポイントのＭＳＰ明朝で「とも」とルビが振られていることがわかる。

ここで、一旦ドキュメント（笑）を閉じ、開き直す。

もう一度、「強敵」の部分を調べる。

f:id:akashi_keirin:20200124074704j:plain

何も変わっていない。当り前だけど。

ここで、フィールドコードを調べる。

f:id:akashi_keirin:20200124074707j:plain

EQ \* jc2 \* "Font:ＭＳＰ明朝" \* hps10 \o\ad(\s\up 10(とも),強敵)

こうなっている。

「hps10」の部分がルビのフォントサイズを表す。実際のサイズ（5ポイント）の2倍の数値が記録されている。

マクロでルビのフォントサイズを変更する

このフィールドコードをマクロで書き換えてみる。

リスト２

Private Sub testReplaceFieldCode()
  Dim tgtField As Field
  With Selection.Fields(1)
    .Code.Text = Replace(.Code.Text, "hps10", "hps9")
  End With
End Sub

選択範囲のField.Codeプロパティの返り値（Rangeオブジェクト）のTextプロパティがフィールドコード文字列を表すので、その「hps10」を「hps9」に置換してやれば、フォントサイズは4.5ポイントに変わる。

リスト２を実行した後、「強敵」の部分を調べると、

f:id:akashi_keirin:20200124074710j:plain