小编Mik*_*ike的帖子

我和这个问题的用户有类似的问题。

现在，我无法在下面的 Excel VBA 中将类型为“DocumentProperty”的函数变量 proDocName 设置为 wdDoc.BuiltinDocumentProperties.Item(1) 。它会抛出类型不匹配错误。

Excel VBA 子例程应首先打开 Word 实例，然后打开 Word 文档文件。

然后，我将 ByRef 文件（我在代码中称之为 wdDoc）传递给函数，然后尝试获取文档属性的值和名称，我想使用该函数将其写入 Excel 工作表。

我已经在 Word VBA 中测试了以下代码，它工作正常：

Sub test()
Dim wdApp As Word.Application
Dim wdDocPro As DocumentProperty

Set wdApp = GetObject(, "Word.Application")
Set wdDoc = wdApp.ActiveDocument
Set wdDocPro = wdDoc.BuiltInDocumentProperties.Item(1) ' I get a type mismatch on this line

For Each wdDocPro In wdDoc.BuiltInDocumentProperties
MsgBox (wdDocPro.Name & " , " & wdDocPro.Value)

Next wdDocPro

End Sub

该测试使我能够看到“wdDoc”的文档属性，因此我知道这一定是 1.) DocumentProperty 的 …