質問: 皆さん、お疲れ様です。 ふりがなを追加するには、このコードを使用しています。 VBAでルビを削除するには、どうすればよいでしょうか。 宜しくお願いします。 ハシ
回答: `Range.PhoneticGuide` メソッドのTextパラメータに空文字列を指定することで、ルビを削除することができます。対象となる `Range` オブジェクトを得るには、例えば `ActiveDocument.Fields` プロパティなどが使えます。 ``` Sub 文章内の全てのルビを削除() For Each f In ActiveDocument.Fields f.Select Selection.Range.PhoneticGuide "" Next End Sub ``` なおこのプロパティにはルビ以外のフィールドコードも含まれていますが、それらに対して `PhoneticGuide` メソッドを使うとそのフィールドコードが壊れてしまいます。そのようなケースを避ける必要があれば、`Field.Code.FormattedText` や `Field.Type` などでそれらしいかどうかを判別する必要があります。 参考 * ルビ削除のマクロの仕様? - Goo知恵袋 * Word2007(ワード2007)実用編:フィールドコードの使い方