Get CustomDocumentProperties

[vince692]

I want to read CustomDocumentProperties, here is my code but i can't get the


"ActiveDocument.CustomDocumentProperties.Count " working :
I tried with "ThisDocument.CustomDocumentProperties.Count" as well.

In Excel, "ThisWorkbook.CustomDocumentProperties.Count" works.

'Read CustomDocumentProperties in a WordDocument
Dim cp As DocumentProperty

'Check if CustumDocumentProperties exist ...
If ActiveDocument.CustomDocumentProperties.Count = 0 Then
MsgBox "Generation path not found"
Exit Sub

For Each cp In ActiveDocument.CustomDocumentProperties
    MsgBox cp.Name & vbLf & cp.Value
Next cp
End If

Any ideas ?