代码之家  ›  专栏  ›  技术社区  ›  unsafe_where_true

从Access启动Word-第二次失败

  •  1
  • unsafe_where_true  · 技术社区  · 15 年前

    从Access中的窗体启动Word时,我会执行以下操作:

       Dim wordApp As Word.Application
       Dim wordDoc As Word.Document
       Dim wordRange As Word.Range
    
       Set wordApp = CreateObject("Word.Application")
    
       wordApp.Visible = True
       Set wordDoc = wordApp.Documents.Open(etikettenTemplate)
    
       ' fill in some bookmarks in the word doc
    
       Set wordApp = Nothing
       Set wordDoc = Nothing
       Set wordRange = Nothing
    

    问题是:这在代码第一次运行时运行良好。第二次出现运行时错误462:远程服务器计算机不存在或不可用。

    问题是,我无法控制整个循环,因为用户可能需要在关闭前编辑word文档。我做错什么了吗? 谢谢你的建议

    1 回复  |  直到 12 年前
        1
  •  1
  •   unsafe_where_true    15 年前

    对不起,我自己已经解决了这个问题。

    错误是我通过

    activedocument.bookmarks(mybookmark).range

    而不是以前选择的worddoc变量

    通过使用WordDoc更改所有活动文档 问题消失了。

    不管怎样,谢谢你