UnderOpenSelectedDoc ()
Dunkel wdApp som anmärker 'Word.Application
Dunkel fd som anmärker 'Word.Dialog
På felmeritförteckning därefter
Fastställd wdApp = GetObject (, ”Word.Application”)
På fel GoTo 0
Om wdApp är ingenting därefter
Fastställd wdApp = CreateObject (”Word.Application”)
Avsluta om
wdApp.Visible = True
Uppsättningen fd = wdApp.Dialogs (80) 'wdDialogFileOpen
fd. Namnge = CurrentProject.Path & ”\”,
fd. Visa
Avsluta suben
|