Sätt en referenst till Microsoft Word objekt i VB, klistra in denna kod och kör:

Private Sub Form_Load()

Dim doc As word.Document
Dim wrd As word.Documents

Dim app As word.Application

Set app = CreateObject("Word.Application")
app.Documents.Open ("c:\testdokument.doc")

Set doc = app.Documents(1)

' hämta ut enstaka objekt
Author = doc.BuiltInDocumentProperties("Author")
Title = doc.BuiltInDocumentProperties("Title")

' listar alla värden som finns
On Error Resume Next
For Each p In doc.BuiltInDocumentProperties
Debug.Print p.Name & " - " & CStr(p.Value)
Next

app.Quit False
Set app = Nothing

End Sub