Read MSWord Header Info

[JohnL55]

How can I read the document properities, custom entries.

[RogerH]

Select "MS Word Object Library" in project - references

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