Developing.ru

Код: Выделить всё

...
On Error Resume Next
     Set oapp = GetObject(,"Word.Application")
  If Not Err.Number = 0 Then ' желательно проверять номер ошибки, но я его не ...
     Set oapp = CreateObject("Word.Application")
     Err.Clear
  End If
...

Код: Выделить всё

Public oapp As Object
Dim dlg As Object

Sub Макрос1()
    On Error Resume Next
    Set oapp = GetObject(, "Word.Application")
    If Err.Number <> 0 Then
        Err.Clear
        On Error GoTo 0
        Set oapp = CreateObject("Word.Application")
    End If
    oapp.Visible = True
    Set dlg = oapp.Dialogs(80) 'wdDialogFileOpen
    If dlg.Show = -1 Then
        oapp.Documents.Open Filename:=dlg.Name
    End If
End Sub