vba как обновить поля

Question

Я хотел бы обновить поле Word из макроса VBA.
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 

?