微软OFFICE的word文件填空框无法删除，但别人的WPS就可以删除

跪求

active控件？
开发工具，设计模式，再试试能不能删。
如果没有开发工具，文件-选项-自定义功能区，右边主选项卡里把开发工具勾上。

Private Sub CommandButton1_Click()
Dim doc As Document
Set doc = Application.ActiveDocument
Selection.MoveStart
Dim objShape As InlineShape
For Each objShape In doc.InlineShapes
If objShape.Type = wdInlineShapeOLEControlObject Then
objShape.Delete
End If
Next
End Sub
网上搜的代码
开发工具-visual basic，双击this document，在右边粘贴上面那段，按F5运行，然后关掉VBA就行了。
试了下，有时会删剩下一个。