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

如何解决在 Word 中设置元数据并在 Excel 中检索

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

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

并通过 shell 在 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中设置。例如，我想设置部门 (GetDetailsOf 索引 155)、组 (172)、程序 (277) 和附件 (219) 字段。你如何设置这些非内置的属性？