質問: WordのVBAで図形を選択し、その中の文字のフォントを 自動で全て変更したいのですが、 どのようにすればいいのでしょうか? 良い方法はありませんか? よろしくお願いいたします。
回答: 質問の内容をドキュメント中のすべての図形の 文字フォントを変更すると解釈して回答します。 以下のようにVBAで記述したらよいのではないで しょうか。ここでは日本語フォントを「MS 明朝」に、 英数字フォントを「Arial Black」に変更しています。 Sub SetFont() On Error Resume Next Dim shp As Shape For Each shp In _ ActiveDocument.Content.ShapeRange shp.Select Selection.Font.Name = "MS 明朝" Selection.Font.NameAscii = "Arial Black" Next shp End Sub (Word97にて試しました。)