Wordのオートシェイプをまとめて消去する方法

質問

Wordのファイルにオートシェイプがたくさんありまして、それらをまとめて消去したいのですが、図形描画ツールバーの矢印をクリックしてマウスで範囲していする以外に、マクロでまとめて消す方法はないでしょうか？

回答No.1

GreatDragon · ベストアンサー

Wordのマクロは超初心者ですが
以下のようなマクロはいかがでしょうか？

Public Sub Macro1()
　　ActiveDocument.Content.ShapeRange.Delete
End Sub

お礼

おお、「Content」をつけたら動きました！