PDA

Click to See Complete Forum and Search --> : Read MSWord Header Info


JohnL55
Dec 29th, 1999, 02:34 AM
How can I read the document properities, custom entries.

RogerH
Dec 29th, 1999, 01:42 PM
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