Read MSWord Header Info

How can I read the document properities, custom entries.

Select "MS Word Object Library" in project - references

Code:

---

Dim objword As Word.Application
Dim prop As Object

Set objword = New Word.Application
objword.Documents.Open "G:\Projekte\BOSCH\Word-Vorlagen\Prüfvorschrift\Work\Deckblatt.dot", , True

For Each prop In objword.ActiveDocument.CustomDocumentProperties
    MsgBox prop.Name & ": " & prop.Value
Next
   
objword.ActiveDocument.Close
objword.Quit

Set objword = Nothing

---