遍历内容控件及其标签

Question

我希望遍历Word文档中的所有内容控制标签，并在MsgBox中显示它们。我有一段简单的代码，并且有MS Word对象库处于活动状态，但是它一直给我一个“对象不支持此属性或方法”的信息。我从先前回答的问题中得到了这段代码，但对我而言不起作用。关于我在这里缺少什么的任何想法？

Sub NameCheck()


Dim wrd As Word.Application
Dim pc As Word.Document
Dim CC As ContentControl



Set wrd = CreateObject("Word.Application")
Set pc = wrd.Documents.Open("V:\AarealUSA\Common\ACC Templates\Test.docx")

  For Each CC In pc
    MsgBox CC.Tag
  Next CC

End Sub