1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:
Sub OpenSelectedDoc() Dim wdApp As Object 'Word.Application Dim fd As Object 'Word.Dialog On Error Resume Next Set wdApp = GetObject(, "Word.Application") On Error GoTo 0 If wdApp Is Nothing Then Set wdApp = CreateObject("Word.Application") End If wdApp.Visible = True Set fd = wdApp.Dialogs(80) 'wdDialogFileOpen fd.Name = CurrentProject.Path & "\" fd.Show End Sub