修論のときに知っておけばよかったよシリーズ! http://www.relief.jp/itnote/archives/001453.php このサイト、たいへん勉強になりました。 以下は、上のサイトのパクリです。 上のサイトは親切な解説なので、興味がある人はそっちを見てください。 Sub SetPhonetics() Selection.SetPhonetic Selection.Phonetics.Visible = True Selection.Offset(1, 0).Select End Sub 次のマクロを実行。適当にショートカットを設定、例えば Kanji だけに「Ctrl + k」にして、Ctrlを押しながら K連打すると下に向かってずらーっとふりがながはいる。 ちなみに、ぼくは「読みの情報」があれば充分で、ふりがな自体は別に必要なかったので、実際のマクロ実行では、 Sel