Word vba删除按钮不起作用

Question

我得到＆＃34;错误＆＃39; 91＆＃39;：对象变量或With block变量未设置＆＃34;跑完后：

For Each obj In ActiveDocument.InlineShapes
    If obj.OLEFormat.Object.Name = "Button" Then '<-error line
        obj.Delete
    End If
Next

我认为我需要将obj声明为InlineShape或Object，但结果是相同的。 我确信我有一个名为Button的命令按钮，我知道名称和标题之间的差异，但都不起作用。 此代码是在按下相同按钮后运行的代码的一部分。

Answer 1

我测试了下面的代码：

Sub delete()

Dim obj As Object

For Each obj In ActiveDocument.InlineShapes
    If obj.OLEFormat.Object.Name = "Button" Then
        obj.delete
    End If
Next obj

End Sub