Word openen vanuit excel via active path??!?!?

[felix85]

Hallo Mensen,

Ik gebruik onderstaande code om Word te openen vanuit excel, hoe moet ik deze code aanpassen dat hij uit dezelfde map Word opent.. dus met activepath?

Application.ScreenUpdating = False

Set WordApp = CreateObject("Word.Application")
Set Worddoc = WordApp.Documents.Open(Filename:="H:\2008\08HOM086 BEHEER GULPEN-WITTEM\Algemeen\7.beheerprogramma\Begeleidend schrijven.doc")

WordApp.Visible = True

Application.ScreenUpdating = True

Alvast bedankt

 

[leofact]

Als het word document in dezelfde map zit als het workbook, kun je dit opvragen met
ActiveWorkbook.Path
Let op: er staat geen back slash op het einde

mvg leo