Друзья, нужна ваша помощь.  
 
Есть такой простой скрипт (только начал писать программу). Написан на VBA в Excel.  
В указанном месте возникает ошибка 438.  
Добавлю, что файл word не пустой.  
 
Dim appWD As Object  
 
Set appWD = CreateObject("Word.Application")  
appWD.Documents.Open ("Y:\1.doc")  
appWD.Visible = True  
 
With appWD  
   Selection.MoveDown Unit:=wdLine, Count:=2 'ЗДЕСЬ      
End With  
 
appWD.Documents("Y:\1.doc").Close False  
appWD.Quit  
Set appWD = Nothing