在“引用”菜单中选择了“Microsoft Word 9.0 Object Library”后,调用WORD时提示“AutoMation 错误”,如下列代码:
sub aa()
  Dim WordApp As new Word.Application  Set WDoc = WordApp.Documents.Open(WordPath) '这句就错了
  .
  .
  .
end sub

解决方案 »

  1.   

    sub aa()
      Dim WordApp As  Word.Application
      set WordApp  = new Word.Application
      Set WDoc = WordApp.Documents.Open(WordPath) '这句就错了
      .
      .
      .
    end sub
      

  2.   

    Dim WordApp As new Word.Application '其实就是这句错了!!!
      

  3.   

    Dim WordApp As New Word.Application
        Dim WDoc As New Word.Document    Set WDoc = WordApp.Documents.Open("D:\today.doc") 
    这个我试了,好用,如果还不好使,就是你的机器有问题了!!
      

  4.   

    show you  code
    看看
    自动化错误