打开多个word文档vba excel

【问题标题】：Opening multiple word documents vba excel打开多个word文档vba excel
【发布时间】：2018-02-27 01:34:09
【问题描述】：

打开多个工作文档的最佳方式是什么？我想通过 VBA 从不同的 word 文档中复制/粘贴。我应该为每个实例打开一个新实例吗？我真的需要同时激活两个工作簿，粘贴完成后将关闭。

是

Set objWord1 = CreateObject("Word.Application")
Set objWord2 = CreateObject("Word.Application")
objWord1.Document.open("maindocument.docx")
obj2Word2.Document.open("seconddoc.docx")

这是最有效的方法吗？

【问题讨论】：

标签： vba excel

【解决方案1】：

您只需要打开一个应用程序实例。然后你可以为你的文件做两个单独的声明：

Dim objWord As Object
Dim doc1 As Object, doc2 As Object

Set objWord = CreateObject("Word.Application")
Set doc1 = objWord.Documents.Open("maindocument.docx")
Set doc2 = objWord.Documents.Open("seconddoc.docx")

我一般不推荐这个，但如果你想变得狡猾：

Dim doc1 As Object, doc2 As Object

With CreateObject("Word.Application")
    Set doc1 = .Documents.Open("maindocument.docx")
    Set doc2 = .Documents.Open("seconddoc.docx")
End With

【讨论】：