皆さん、お疲れ様です。
ふりがなを追加するには、このコードを使用しています。
https://stackoverflow.com/questions/34602598/how-to-add-phonetic-guides-to-all-the-texts-at-once
VBAでルビを削除するには、どうすればよいでしょうか。
宜しくお願いします。
ハシ
皆さん、お疲れ様です。
ふりがなを追加するには、このコードを使用しています。
https://stackoverflow.com/questions/34602598/how-to-add-phonetic-guides-to-all-the-texts-at-once
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
などでそれらしいかどうかを判別する必要があります。
参考