WordのDocument上からテキストボックスを一掃できない
やたらとテキストボックスがベタベタ貼り付けられた文書に出会った。
文章をコピペしようにも、巻き添えでテキストボックスが選択されてしまうのでうっとうしいことこの上ない。
で、マクロで一掃してやろうと思って次のコードを書いた。
文書内のシェイプを一掃する（はずの）コード
リスト１ 標準モジュール
Public Sub removeAllShapes()
Dim Doc As Document
Set Doc = ActiveDocument
Dim shp As Word.Shape
For Each shp In Doc.Shapes
Call shp.Delete
Next
End Sub
文書内のShapeオブジェクトを総ナメして、Deleteメソッドで抹殺。
完璧なはずだ。
実行
このような文書を用意して、実行してみる。
ちなみに、実行前のシェイプの数は、
９個。
実行してみると……。
ぬな！？
シェイプが４個も残っとるやんけ。
おわりに
なんでやねん。
追記
コメント欄と併せ、コチラもどうぞ。
