vbscript - 使用 Visual Basic 脚本计算 Word 文档中的形状

Question

我想使用此代码使用 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”

这有什么问题？