如何不覆盖原文件里的内容？

[fooltutu]

我用ＶＢ写了段程序，将一个ＷＯＲＤ文档里的内容读出写到另一个ＷＯＲＤ文档中，可是它会将原来的内容覆盖掉．

[舉杯邀明月]

Word文档？不知道。

Up.....

[zzyong00]

晕了，怎么都是这样的问题，你的代码是什么？

[fooltutu]

Dim waSolution As Word.Application
Dim wdDocument As Word.Document

dlgOpen.ShowOpen
Dim mstr As String
mstr = dlgOpen.FileName
MsgBox mstr
MsgBox "选择数据导入的文件"
CommonDialog1.ShowOpen
Dim pstr As String
pstr = CommonDialog1.FileName

On Error Resume Next

Set waSolution = CreateObject("Word.Application")

waSolution.Visible = True
waSolution.Activate
waSolution.WindowState = wdWindowStateMaximize

Set wdDocument = waSolution.Documents.Add()

wdDocument.Application.Selection.InsertFile mstr, "", False, False, False


wdDocument.SaveAs pstr

帮忙看下吧，谢谢了

[zzyong00]

你的思路不太明确
看提示：
MsgBox "选择数据导入的文件"
CommonDialog1.ShowOpen
Dim pstr As String
说明pstr是导入文件路径，但最后一句：wdDocument.SaveAs pstr ，又把文件保存在导入文件里了，当然把原来的文件覆盖了!

[m60a1]

word的存贮是以二进制的方式存贮的，要读写word文件只有用MS提供的OFFICE接口来完成，至于说为什么会错
楼上的全中：）

[fooltutu]

我是选择一个文件mstr，将其内容复制保存到另一个你可以选择的文件pstr．
如果我想把mstr的内容复制到pstr中，又不覆盖pstr原来的内容，要用什么语句呢？

[JackGu2005]

按你的代码，你是先创建了一个新文档wdDocument，然后通过这句wdDocument.SaveAs pstr让wdDocument覆盖了pstr（“另存为”就是覆盖阿）

你不需要创建新文档的，正确的做法是：
用GetObject打开pstr，然后寻找插入点，然后粘贴，最后保存。相信你能写出代码的。

[knowledge_Is_Life]

不知,帮顶

[UltraBejing]

等待牛人来答.