WordVba ルビをすべて解除する方法は?
高校の授業で生徒が自己採点できる教材を作っています。自己採点のマクロとは直接関係はないのですが、マクロの勉強を兼ねて、次のような課題を解決したいと思ったのですが無理でした。
生徒向け表示用のワード文書で読みにくい漢字にルビを設定したものが100ファイル(600文字~1000文字)ほどあります。ルビをふっていない文書が必要になったのですが、ルビを設定していない素の文書が見つからないのでVbaを使ってルビをすべて解除したいと思っています。
「MSDNのWord VBA リファレンス > オブジェクト モデル > Range オブジェクト」を参照して、Range.PhoneticGuideメソッドを使えばできそうなので次のようなプロシジャー作り、実行したら手作業のときと同じような結果(ルビが解除できる場所と個数が私には予想できない)になりました。
Sub ReSetPhonetic()
ActiveDocument.Range(Start:=200, End:=500).Select
Selection.Range.PhoneticGuide Text:="", _
Alignment:=wdPhoneticGuideAlignmentCenter, _
Raise:=11, FontSize:=7
End Sub
ルビをふってあるRangeオブジェクトを正確に指定する方法が分からないので、それを含むであろう範囲をStrat、Endに適当に設定して実行してますが、ルビが解除される場所がよく分かりません。複数のルビをふった文字列を一括で解除する方法をどなたか教えていただけませんか。よろしくお願いします。