Åben et word doc

Du skal lave en reference til "Microsoft Word x.0 Object Library" (Tools->References fra VBA-editoren) 

  Dim Wrd As New Word.Application
  Wrd.Visible = True
  'Wrd.Activate
  Wrd.Documents.Open "X:\filer\DitDokument.doc"
  Wrd.Quit
  Set Wrd = Nothing

Der havde lige sneget sig en ' ind. Her er den rigtige:

Dim Wrd As New Word.Application
  Wrd.Visible = True
  Wrd.Activate
  Wrd.Documents.Open "X:\filer\DitDokument.doc"
  Wrd.Quit
  Set Wrd = Nothing

/Thomas

Jeg prøver lige... tak

argh....der er vist lige et par linier for meget....(sorry)...:

  Dim Wrd As New Word.Application
  Wrd.Visible = True
  Wrd.Activate
  Wrd.Documents.Open "X:\filer\DitDokument.doc"

Jeg tror, at dokumentet lukkede igen med det samme, da jeg havde fået sa Quit ind til sidst.

Så er der kun et lille problem, når jeg kører kommandoen er dokumentet kun åbent i ca. 1 sec ... den lukker word ned igen automatisk, hvad søren kan det være??

Sorry, så ikke dit svar ;-)

Andet forslag:
Opret makro med "Kør program" og i kommandolinje skrives stien til dit wordprogram mellemrum og dernæst stien til selve doc.

Brix-> Ulempen ved den model er jo, at du skal kende stien til Winword.exe. Og derved vil programmet formentlig ikke kunne køre på en anden maskine.

Man bør altid tænke i mere generelle løsninger.

Men ellers har du ret ;o)

Hvis man installere Microsoft office default vil stien altid være den samme. Man kan vælge "start", og "Kør" og "Gennemse". Der finder man den korrekte sti og den kan så kopieres til makro kommandolinje.

Og ja, thomas det skal man selvfølgelig tænke på.

Tak for alle jeres svar, jeg valgte Thomas løsning da det var den første og virker særdeles godt.

Ikke for at skynde på dig, men lukker du ikke spørgsmålet så? :o)