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

Question

我想使用此代码

使用字宏计算某些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

但执行脚本时出现此错误

＆＃34;第7行 - 错误：需要对象：var2.Count＆＃34;

这有什么问题？