vba如何更新字段

Question

我想從VBA宏更新Word字段。
Word Doucument是wrdDoc，代碼如下。
當我運行代碼時，在檢索屬性時出現類型不匹配錯誤。

如果有人能幫助，我會很感激。

Dim objCustomProperties As CustomProperties 
Set objCustomProperties = wrdDoc.CustomDocumentProperties 
For i = 1 To objCustomProperties.count 
    objCustomProperty = objCustomProperties.Item(i) 
Next 

Answer 1

CustomDocumentProperties是DocumentProperties集合，所以這是它需要的類型（它也可以是Variant或Object）。

Dim wrdDoc As Document: Set wrdDoc = ActiveDocument 
Dim objCustomProperties As DocumentProperties 
''# Dim objCustomProperties As Variant ''# This also works 
''# Dim objCustomProperties As Object ''# This also works 
Set objCustomProperties = wrdDoc.CustomDocumentProperties 
For i = 1 To objCustomProperties.Count 
    ''# objCustomProperty = objCustomProperties.Item(i) ''# Your code 
    Debug.Print objCustomProperties.Item(i).Name & ": " & objCustomProperties.Item(i).Value 
Next 

Answer 2

你會很樂意與：

Dim objCustomProperties As Object 

？