1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:
Sub OpenSelectedDoc () Тусклое wdApp как предмет 'Word.Application Тусклый fd как предмет 'Word.Dialog На резюме ошибки затем Установите wdApp = GetObject (, «Word.Application») На ошибке переход 0 Если wdApp ничего после этого Установите wdApp = CreateObject («Word.Application») Закончитесь если wdApp.Visible = True Установите fd = wdApp.Dialogs (80) 'wdDialogFileOpen fd. Имя = CurrentProject.Path & «\» fd. Выставка Подводная лодка конца