Indsætte data fra et word dok. til en access db

he rubber>thats very kind of you :o)
You can NOT grep after the author property. I have actually looked at the original question and tried to find a solution, but I just DO NOT seem to be able to find this propery.

A solution will involve automating Word and opening the documnet I think, but as I said I just do NOT seem to be able to find out exactly where the author property is hidden.

That about VB with I am not familiar with. Do you know anything about that??

I can open a Word document from VB but I can NOT find the author!

Is it possible in VB to grep a whole document and insert it into access on save command??

Følgende kode åbner et dokument og skriver Auther i en msgbox:

Public Sub OpenWord()
  Dim Wrd As New Word.Application
  Wrd.Visible = True
  Wrd.Activate
  Wrd.Documents.Open "E:\Dokumenter\WORD\Test.doc"
  MsgBox Wrd.Documents(1).BuiltInDocumentProperties(3)
  Set Wrd = Nothing
End Sub

/Thomas
www.makeiteasy.dk

Nedenstående er måske lidt mere 'korrekt':

Public Sub OpenWord()
  Dim Wrd As New Word.Application
  Wrd.Visible = True
  Wrd.Activate
  Wrd.Documents.Open "E:\Dokumenter\WORD\bilsalg.doc"
  Debug.Print Wrd.ActiveDocument.BuiltInDocumentProperties("Author")
  Set Wrd = Nothing
End Sub

strange! I just wrote a commentand its gone :o( I think eksperten has a problem somewhere!

short version>
I was in the same area yesterday Thomas, but just could NOT find it, but then there are loads of objects/properties in the object browser and it would have taken me all day :o)

Hi Terry,

You should have looked in Word VB-help. Took me 3 minuttes ;o)

How do you get in there Thomas? I have most probably been told on some course but can rememeber. But I thought I had been almost everywhere but still...
Anyway hopefully rubber glove has the answer he wanted :o)

Takker for Jeres svar! Skal lige have det til at virke så deler jeg point ud

Hvis du ikke ønsker at se Word, kan du gøre sådan:

Public Sub OpenWord()
  Dim Wrd As New Word.Application
  Wrd.Documents.Open "E:\Dokumenter\WORD\Test.doc"
  Debug.Print Wrd.ActiveDocument.BuiltInDocumentProperties("Author")
  Wrd.ActiveDocument.Close False
  Wrd.Quit
  Set Wrd = Nothing
End Sub