Wordで全ての図形を削除するマクロ

Wordの文書上にある全ての図形を削除するマクロを考えます。
「ActiveDocument.Shapes」を使うとアクティブな文書(Document)にある図形を取得できます。
まず思い付く方法は「For Each」を使って処理する方法です。次のようなコードになります。

しかし正しく処理されません。一つおきに削除されます。
次のように考えられます。
「For Each」ループで、まず1番目の図形を削除します。
次に2番目の図形を削除しますが、先程の図形削除後の2番目なので元の順番では3個目の図形です。
この結果、元の2個目の図形が残ってしまいます。

これを踏まえて次のようなコードを考えます。
「Do While」ループを使い、図形の個数が0より大きいときだけ処理します。個数が0になれば終了です。

もう一つの方法は次の通りです。
最後の図形から最初の図形まで遡るようにして処理します。