Dim objWrdApp As Object
Dim objWrdDoc As Object
On Error Resume Next
Set objWrdApp = GetObject(, "Word.Application")
        'If objWrdApp2007 Is Nothing Then - откуда взялся objWrdApp2007???
        If err Then
            err.clear
            Set objWrdApp = CreateObject("Word.Application")
            if err then msgbox "Нету Ворда на машине!": exit sub
        End If
On Error Goto 0
objWrdApp.Visible = True
Set objWrdDoc = objWrdApp.Documents.Open("d:/...../КИП.doc")