Vbscript 使用visual basic脚本计算word文档中的形状

我想使用以下代码使用word宏计算特定word文档中的所有形状

Set objWord = GetObject(, "Word.Application")
objWord.Visible = True

Set objDoc = objWord.Documents.Open("D:\Test.docx")
Set var1 = objWord.ActiveDocument
Set var2 = var1.Shapes
Set var3 = var2.Count

但是我在执行脚本时遇到了这个错误

“在第7行-错误：所需对象：var2.Count”

---

这有什么问题？

.Count是一个简单的变量，而不是一个对象-因此在

var3

之前删除

Set

。请参阅当我删除Set关键字时，我得到一个错误，即“Count不是一个方法”。我的问题是如何在消息框或命令行中显示此计数？请尝试

WScript.Echo objWord.ActiveDocument.Shapes.Count

。