Проблема при обращении эксель к ворду.

[RGZZ]

Здравcтвуйте!
Всегда пользовался одним кодом, который переносил из таблицы Excel данные в шаблон Word. Сейчас возникает какая проблема, причем на одном компе код работает, на другом выдает ошибку и закрывает Excel. Причем библиотеки стоят одни и те же.



Может это в настройках офиса что-то. Посоветуйте, что-нибудь, пожалуйста.

в приложении файлы:
а вот сам код:
Sub connection_schemes()
Dim number1, number2, filename As String
Dim i As Integer
Dim Word As New Word.Application

For i = 2 To 2

'path

Word.Documents.Open filename:="""D:\BTS_DC\help\BTS_DC. doc""", ConfirmConversions:= _
False, ReadOnly:=True, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""

Word.Visible = True

Word.Selection.Find.ClearFormatting
Word.Selection.Find.Replacement.Cle arFormatting
With Word.Selection.Find
.Text = "number1*"
.Replacement.Text = Cells(i, 1)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Word.Selection.Find.Execute Replace:=wdReplaceAll



filename = "DC_BTS_" & Cells(i, 1)

'path

Word.ChangeFileOpenDirectory "d:\BTS_DC\"
Word.ActiveDocument.SaveAs filename:=filename
Word.ActiveWindow.Close
Next i
End Sub

Help.rar