Re: Get word document data

Tech-Archive recommends: Fix windows errors by optimizing your registry

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';



--
Regards

Alex White MCDBA MCSE
http://www.intralan.co.uk

"ingalla" <ingalla@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:478935B3-A996-48A1-8E79-CBE67EF7C4B5@xxxxxxxxxxxxxxxx
> 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


.