vbscript - Visual Basic スクリプトを使用して Word 文書内の図形を数えます

Question

このコードを使用して単語マクロを使用して、特定の単語文書内のすべての形状を数えたかった

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」

これの何が問題なのですか?