1

皆さん、お疲れ様です。

ふりがなを追加するには、このコードを使用しています。
https://stackoverflow.com/questions/34602598/how-to-add-phonetic-guides-to-all-the-texts-at-once

VBAでルビを削除するには、どうすればよいでしょうか。

宜しくお願いします。

ハシ

1 件の回答 1

1

Range.PhoneticGuide メソッドのTextパラメータに空文字列を指定することで、ルビを削除することができます。対象となる Range オブジェクトを得るには、例えば ActiveDocument.Fields プロパティなどが使えます。

Sub 文章内の全てのルビを削除()
For Each f In ActiveDocument.Fields
  f.Select
  Selection.Range.PhoneticGuide ""
Next
End Sub

なおこのプロパティにはルビ以外のフィールドコードも含まれていますが、それらに対して PhoneticGuide メソッドを使うとそのフィールドコードが壊れてしまいます。そのようなケースを避ける必要があれば、Field.Code.FormattedTextField.Type などでそれらしいかどうかを判別する必要があります。

参考

この質問に回答するには、ログインする必要があります。

求めていた回答ではありませんか? のタグが付いた他の質問を参照する。