[[20030602090022]]　『ふりがなの登録をマクロで行いたい』（shino）　ページの最後に飛ぶ

『ふりがなの登録をマクロで行いたい』（shino）

A列のセルに、漢字の文字列を「貼り付け」
B列に=PHONETIC(An)でふりがなを取り出します。

貼り付けていますからＡ列にはふりがなは設定されていません。
A1を選択して、

＞Shift+Alt+↑キーで振り仮名に移動します。Shift+Alt+↓キーで親文字に移動編集します。

というのはここにも載っているようにわかりました。
ふりがなに移動した時点で、ふりがなが自動的に入力されるのはIMEとの連携でしょうか。
リターンキーを押して親文字に移動・もう一度押して下のセルに移動。
修正の必要はあるものの手間が省けました。

しかし、これを何百回も繰り返すのは嫌です。マクロにしたい。
ツール・マクロ・新しいマクロの記録をしてみましたが、

    ActiveCell.FormulaR1C1 = "人と話す時には"
    ActiveCell.Characters(1, 7).PhoneticCharacters = "ひととはなすときには"
    Range("A10").Select
キー操作の結果を再現するだけで、キー操作そのものを記録していない。
これでは使えません。
「Shift+Alt+↑キーで振り仮名に移動します。Shift+Alt+↓キーで親文字に移動編集します。
」をマクロで行うにはどうすれば？

以上、よろしくお願いします。

解決してしまいました。

 Sub SetPhonetic()
   Selection.SetPhonetic
 End Sub

（shino）

 サポートに電話しているうちに、あっそうかと自分で解決してしまうことって
 よくあります。
 （kazu）

コメント返信：

[ 一覧(最新更新順) ]

[[20030602090022]] 『ふりがなの登録をマクロで行いたい』（shino） ページの最後に飛ぶ

[[20030602090022]]　『ふりがなの登録をマクロで行いたい』（shino）　ページの最後に飛ぶ