1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:
VorOpenSelectedDoc () Schwaches wdApp als Gegenstand 'Word.Application Schwache Flugleitanlage als Gegenstand 'Word.Dialog Auf Störungs-Zusammenfassung zunächst wdApp = GetObject (, „Word.Application“) einstellen Auf Störung Goto- 0 Wenn wdApp nichts dann ist wdApp = CreateObject („Word.Application“) einstellen Beenden wenn wdApp.Visible = ausrichten en Einstellen Flugleitanlage = wdApp.Dialogs (80) 'wdDialogFileOpen Flugleitanlage. Name = CurrentProject.Path u. „\“ Flugleitanlage. Erscheinen Enden-Unterseeboot