Открытие документа Word

[veroman]

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

Private Sub Knopka_Click()
On Error GoTo Err_Knopka_Click

    Dim oApp As Word.Document
   

    Set oApp = GetObject("C:\Test\test.doc")
    oApp.Visible = True
   

Exit_Knopka_Click:
    Exit Sub

Err_Knopka_Click:
    MsgBox Err.Description
    Resume Exit_Knopka_Click
   
End Sub


На Dim oApp As Word.Document ругается....в чем дело?

[Samovar]

А Project->References->MS Word XX.X Object Library есть?

[veroman]

спасибо