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

Question

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