Word VBA でオートシェイプのフォントを自動で変更するには？

質問

WordのVBAで図形を選択し、その中の文字のフォントを
自動で全て変更したいのですが、
どのようにすればいいのでしょうか？　
良い方法はありませんか？　よろしくお願いいたします。

回答No.1

noname#420 · ベストアンサー

質問の内容をドキュメント中のすべての図形の
文字ﾌｫﾝﾄを変更すると解釈して回答します。
　以下のようにVBAで記述したらよいのではないで
しょうか。ここでは日本語ﾌｫﾝﾄを「ＭＳ 明朝」に、
英数字ﾌｫﾝﾄを「Arial Black」に変更しています。
Sub SetFont()
　　On Error Resume Next
　　Dim shp As Shape
　　For Each shp In _
　　　ActiveDocument.Content.ShapeRange
shp.Select
Selection.Font.Name = "ＭＳ 明朝"
Selection.Font.NameAscii = "Arial Black"
Next shp
End Sub

（Word97にて試しました。）

お礼

動作確認とれました。
ありがとうございました。