1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:
OpenSelectedDoc secondario () wdApp fioco come oggetto 'Word.Application Fd fioco come oggetto 'Word.Dialog Sul riassunto di errore dopo Regolare il wdApp = GetObject (, “Word.Application„) Sull'errore 0 di avanzamento Se il wdApp allora è niente Regolare il wdApp = CreateObject (“Word.Application„) Concluder se wdApp.Visible = allineano Regolar fd = wdApp.Dialogs (80) 'wdDialogFileOpen fd. Nome = CurrentProject.Path & “\„ fd. Esposizione Sommergibile dell'estremità