1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:
Sub OpenSelectedDoc () Schemerige wdApp als Voorwerp 'Word.Application Schemerige f-d als Voorwerp 'Word.Dialog Op Fout hervat daarna Plaats wdApp = GetObject (, „Word.Application“) Op Fout GoTo 0 Als wdApp dan niets is Reeks wdApp = CreateObject („Word.Application“) Eind als wdApp.Visible = Waar Vastgestelde f-d = wdApp.Dialogs (80) 'wdDialogFileOpen f-d. Naam = CurrentProject.Path & „\“ f-d. Toon Beëindig Sub