Get word document data

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Can anyone point me in the right direction to serach a file folder containing
word documents. I want to extract the docuent title, authour and creation
date from the document properties and right them to a database table.

Anyone have any ideas, or a location of where to look.

Thanks

Andy
 
you will need to use automation

Dim xWordobj As Object
Dim xWordDocument As Object
Dim strReturn As String
Set xWordobj = CreateObject("Word.Application")
Set xWordDocument = xWordobj.Documents.Open(Trim(strFileName))
strReturn = xWordobj.activedocument.builtindocumentproperties(2) '
returns the subject



some others
ActiveDocument.BuiltInDocumentProperties(1).Value = 'Doc Title';
ActiveDocument.BuiltInDocumentProperties(3).Value = 'Doc Author';
ActiveDocument.BuiltInDocumentProperties(5).Value = 'Doc Comments';
 
Back
Top