怎样把一个word对象内容赋给另一个对象

Question

两个word对象。
Dim wrdApp As Word.Application 
Dim wrdapp2 As Word.Application
对象wrdapp用来打开一个已经存在的word.doc文档。
然后把wrdapp的内容赋给wrdapp2.
然后关闭wrdapp，然后删除word.doc
给代码，谢谢

Answer 1

  偶是新手，偶在做公司资料入库，还差一点就完成了。偶用了服务器技术，用了VC+VB，用了SQL数据库。还用了点网络功能，就是不会这个。
偶的库里有31张表。谢谢了，给个答案吧。

Answer 2

你这个要求也没意义啊，如果追加到某个文件后面还有些意义，多个文件合并，你这个是啥意思？
就是为了改个名字？
如果是一张word手动改一下不就完了么？
如果是多张，为什么不说？

Answer 3

你这不就是一个文件的操作问题吗？
复制并重命名文件，删除原文件：FileCopy 源文件，目标文件
Kill 源文件

Answer 4

我的情况说起来话长，WORD文档是用二进制导入导出的。当用户点打开时，就是库里读出文档建个临时文件。然后删除临时文件。用户所打开的文档需要他自己保存。

Answer 5

好吧，总算有个人干点实事了！这样的。我库里全是word文档，用二进制导入的。在我的软件里，用户可以浏览到库里数据的文件名、入库时间等非正文信息。
当用户右击选打开命今时，用文件名把这条说数导出来，再把这个数据存在一个临时的DOC文档。（因为是二进制，必需要建临时文件）。
 然后，想把这个临时文件用另一个word对象读入内存。这个对象可由用户决定是否保存。最主要的是要把临时文件删除了。（不在硬盘上留下任何痕迹）.
明白吗？代码在好几个模块里，不好发出来 。

Answer 6

那好吧，如果我的理解是对的，你那个建临时文件的过程就可以省掉了，直接读到一个word中（由用户决定是否保存）：
Dim wrdApp As Word.Application
Dim wrdDoc As DocumentSet wrdApp = CreateObject("word.application") 
Set wrdDoc = wrdApp.Documents.Add
wrdDoc.Content.InsertAfter Text:="请输入你要输入的内容" '这里写入你从库中读出的内容
wrdApp.Visible=True '显示文档，由用户决定是否保存

Answer 7

哥，我是二进制。
wrdDoc.Content.InsertAfter Text:="请输入你要输入的内容" '这里写入你从库中读出的内容
这样写会出大事的。我word里有图形，有格式什么的。

Answer 8

Dim wrdApp As Word.Application
Dim wrdDoc As Document
Dim wrdAppTmp As Word.Application
Dim wrdDocTmp As DocumentSet wrdAppTmp = CreateObject("word.application")  
Set wrdDocTmp = wrdApp.Documents.Open("临时文件.doc") '假设你的临时文件已建好，若没建好，我也不知你想如何从库里建
wrdDocTmp.Selection.WholeStory
wrdDocTmp.Selection.CopySet wrdApp = CreateObject("word.application")  
Set wrdDoc = wrdApp.Documents.Add
wrdDoc.Selection.PasteAndFormat (wdPasteDefault)
wrdApp.Visible=Trueset wrdAppTmp=nothing
set wrdDocTmp=nothing
wrdAppTmp.quit

Answer 9

大至意思就是这样了。但你的代码好多错误，改了一个又来一个，我不会word Application.能帮我改一下吗？