Как заставить работать макросы, написанные в excel 2003, для коррекции данных в word 2007? - VB

Формулировка задачи:

ситуация следующая макросы, написанные в excel 2003 для коррекции данных в word 2003 все открывается правится, сохраняется, НО вот на компах где установлены excel 2007 и word 2007, исходный файл excel 2003 открывается в excel 2007, при запуске макроса нужный файл word(написанные в word 2003) открывается word 2007, НО в нем ничегошеньки не правится

                    Листинг программы
                
 
                            
                        
If Имя <> "" And Смена0 = Смена Then
On Error Resume Next
Set objWrod = GetObject(, "Word.Application")
If objWrod Is Nothing Then Set objWrod = CreateObject("Word.Application")
Set objDoc = objWrod.Documents.Open(КаталогОткрываемойКниги & "" & Имя & ".doc") - ОТКРЫВАЕТСЯ
objWrod.Visible = True - ВИЗУАЛИЗИРУЕТСЯ
objWrod.Activate - СТАНОВИТСЯ АКТИВНЫМ
 
И С ЭТОГО МОМЕНТА В word 2007 НИЧЕГОШЕНЬКИ НЕ ПРАВИТСЯ
 
objWrod.Documents(Имя).ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitFullPage
objWrod.Documents(Имя).Tables(1).Cell(1, 1).Range.Text = УведомлениеДата
objWrod.Documents(Имя).Tables(2).Cell(1, 1).Range.Text = РаботаДата
objWrod.Documents(Имя).Tables(2).Cell(1, 2).Range.Text = РаботаВремя
objWrod.Documents(Имя).Tables(2).Columns.AutoFit
objWrod.Documents(Имя).Tables(3).Cell(3, 1).Range.Text = РаботаДата
objWrod.Documents(Имя).Tables(3).Cell(3, 2).Range.Text = РаботаВремя
objWrod.Documents(Имя).Tables(3).Columns.AutoFit
objWrod.Documents(Имя).Tables(4).Cell(1, 2).Range.Text = РаботаДата
objWrod.Documents(Имя).Tables(4).Columns.AutoFit
objWrod.Documents(Имя).Tables(5).Cell(1, 1).Range.Text = РаботаВремя
objWrod.Documents(Имя).Tables(6).Cell(1, 5).Range.Text = УведомлениеДата
Set objDoc = Nothing
Set objWrod = Nothing

ЧЕЛОВЕКИ ДОБРЫЕ ПОДСКАЖИТЕ ГДЕ ЗАГВОЗДКА

Решение задачи: «Как заставить работать макросы, написанные в excel 2003, для коррекции данных в word 2007?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Form_Load()
    Debug.Assert MakeTrue(inIDE)
    BuggedRoutine
end sub
 
Sub BuggedRoutine()
    On Error GoTo ErrorHandler
 
    'ваш код (хороший или плохой)
    dim r&: r = 1\0
 
    Exit Sub
ErrorHandler:
    debug.? err, "BuggedRoutine"
    If inIDE Then Stop: Resume Next
end sub
 
Public Function MakeTrue(ByRef bvar As Boolean) As Boolean
    bvar = True: MakeTrue = True
End Function