vba comment mettre à jour des champs

Question

Je voudrais mettre à jour un champ Word à partir d'une macro VBA.
Le document Word est wrdDoc dans le code ci-dessous.
Lorsque j'exécute le code, j'obtiens une erreur de type incompatibilité lors de la récupération des propriétés.

Si quelqu'un peut aider, je serais vraiment reconnaissant.

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

Answer 1

CustomDocumentProperties est une collection DocumentProperties, de sorte que c'est le type dont il a besoin d'être (il pourrait aussi être un Variant ou un 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

Seriez-vous satisfait:

Dim objCustomProperties As Object 

?