ON ERROR *
o = Createobject('word.application')
lodoc2 = Getfile('doc')
lodoc = o.documents.Open(lodoc2)
lodoc3 =o.documents.add()
nCount = lodoc.BuiltInDocumentProperties.Count
rng = lodoc3.Range(0,0)
With rng
.InsertBefore("Document Statistics")
.Font.Name = "Verdana"
.Font.Size = 16
.InsertParagraphAfter()
.InsertParagraphAfter()
.SetRange(rng.End, rng.End)
Endwith
rng.Tables.Add(lodoc3.Paragraphs.Item(2).Range,nCount,2)
With lodoc3.Tables.Item(1)
.Range.Font.Size = 12
.Columns.DistributeWidth()
.Style = "Table Colorful 2"
Endwith
With lodoc3.Tables.Item(1)
.Cell(1, 1).Range.Text = "Document properties"
.Cell(1, 2).Range.Text = "Value"
j = 1
For i = 2 To nCount
.Cell(i, 1).Range.Text = lodoc.BuiltInDocumentProperties(j).Name
.Cell(i, 2).Range.Text = Transform(lodoc.BuiltInDocumentProperties(j).Value)
j = j + 1
Endfor
.Select()
ENDWITH
lodoc.close
o.Visible = .T.

>I need to get at the properties, especially the key words in there, of word documents.
>
>I would open the doc and read in the keywords to add them to my database for quick searching.
>
>I assume it must be accessible from oWord.ActiveDocument....
>
>Or are those data actually stored outside of the document?
>
>
>I tried getting at this with a macro but that macro was empty
>
>
>Peter