這算 Word VBA 非常入門的小程式。

在 Word 文件裡，"文字方塊" 與圓形、矩形......等等，都是所謂的『快取圖案』。在 VBA 裡，它們都是 "shape"，文字方塊的 Name (名稱) 會像是 "Text Box 3" 這樣。目前正在使用的文件上所有 shape 的集合，就是:

ActiveDocument.Shapes

若要把 Text Box 3 刪除，就要這樣寫：

ActiveDocument.Shapes("Text Box 3").Delete

底下的程式是利用 for 迴圈，把目前正在使用的文件裡，名稱像 "Text Box *" 的 Shape，也就是所有的文字方塊全部刪除。

Sub DelTextBox()

Dim sp As Shape

For Each sp In ActiveDocument.Shapes

    If sp.Name Like "Text Box *" Then sp.Delete

Next sp

End Sub