1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 :
OpenSelectedDoc secondaire () Faible wdApp comme objet 'Word.Application Faible FD comme objet 'Word.Dialog Sur le résumé d'erreur après Placer le wdApp = le GetObject (, « Word.Application ») Sur l'erreur 0 GoTo Si le wdApp n'est rien alors Placer le wdApp = le CreateObject (« Word.Application ») Finir si wdApp.Visible = rectifient Placer FD = wdApp.Dialogs (80) 'wdDialogFileOpen FD. Nom = CurrentProject.Path et « \ » FD. Exposition Sous-marin d'extrémité