将word文档的内容复制到另一个

Question

如何将一个word文档的内容复制到另一个？这只是文字......

我打开它：

Dim Word_App     As Word.Application
Dim Word_Doc     As Word.Document

Set Word_App = New Word.Application
Set Word_Doc = Word_App.Documents.Add(DocumentType:=wdNewBlankDocument)

Word_App.Documents.Open "C:\test.rtf"

好的，我知道如何打开它。但我需要复制它的内容并将其粘贴到一个新文档......怎么样？

Answer 1

只需使用Word_Doc.SaveAs（一旦您正确设置Word_Doc），然后在其他实例下重新打开。

此处可以发现更多功能： http://msdn.microsoft.com/en-us/library/office/ff840898.aspx