Не работает script обращающийся к Word

Sub File_BeforeAdd(File, Object, Cancel)
Dim path, doc

' Добавляем файл из шаблона (файл с расширением doc)
    path = file.WorkFileName
    file.CheckOut path
    set doc = GetObject(path)

'Вызываем процедуру замены слов в шаблоне документа
    Call FillDocument (doc, docnum, docdate)

    doc.Application.Visible = true

End Sub

Sub FillDocument (doc, dognum, dogdate)
   for each word in doc.words
      if word.text = "docnum" then word.text = docnum
      if word.text = "docdate" then word.text = docdate
   next
End Sub