Ошибка в макросе run time error 424

[Alex_200]

Люди добрые, помогите пожалуйста ошибка run time error 424 в строке AppWord.Visible = True.
Сам макрос должен открыть определенный документ word (шаблон) и скопировать в него необходимые строки из таблицы.
Вот код всего макроса:

Sub Insert()
Set AppWord = CreateObject("Word.Application")
Dim i As Long
Set AppWord = AppWord.Documents.Open("D:\1.docx")
AppWord.Visible = True
AppWord.Documents.Add
For i = 1 To 21
If Cells(i, 12) = 1 Then
Range(Cells(i, 4), Cells(i, 11)).Copy
AppWord.Selection.Paste
End If
Next
Set AppWord = Nothing

End Sub

[IgorGO]

1. Sub Insert()
2. Set AppWord = CreateObject("Word.Application")
3. Dim i As Long
4. Set AppWord = AppWord.Documents.Open("D:\1.docx")
5. AppWord.Visible = True

то, что у Вас переменная в строке 5 называется AppWord, еще не значит что в ней находится Word.Application, потому что 2-й строкой Вы присвоили ей ссылку на одноименное приложение, а уже в четвертой строке AppWord ссылается на открытый в Word документ, а не сам Word

4. Set WDoc = AppWord.Documents.Open("D:\1.docx")