vba - 在 Word 中设置元数据并在 Excel 中检索

Question

我正在尝试编写一个程序，用内容控制框更新 Word 文档的元数据。然后，Excel 文档会遍历保存这些文档的目录，并按元数据对它们进行编目。在 Word 中，我可以通过以下方式在 DocumentBeforeSave 子中设置内置属性...

Application.ActiveDocument.BuiltInDocumentProperties("Keywords").Value = _
Application.ActiveDocument.SelectContentControlsByTitle("Tags").Item(1).Range.Text

并通过外壳在 Excel 中检索那些...

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(WB.Path & "\QA\")

For Each strFileName In objFolder.Items
     inputStr = objFolder.GetDetailsOf(strFileName, 18) 'Tags
     '...
     '...

next strFileName

问题是我想使用“GetDetailsOf”函数中的索引，但不知道如何在 Word 中设置。例如，我想设置 Division (GetDetailsOf index 155)、Group (172)、Program (277) 和 Attachments (219) 字段。你如何设置这些非内置的属性？