有没有一个简单的办法，替换WORD打印内容，但不更改WORD文档

[Mamiting]

有没有一个简单的办法，替换WORD打印内容，但不更改WORD文档

目前我写了一段代码。

Dim FileName As String
FileName = "d:\1.doc"
Dim WordApp As Microsoft.Office.Interop.Word.Application
WordApp = New Microsoft.Office.Interop.Word.Application
WordApp.Application.Documents.Open(FileName:=FileName)
With WordApp.Selection.Find
.ClearFormatting()
.Text = "陈上游"
.Replacement.ClearFormatting()
.Replacement.Text = "马XXX"
.Execute(Replace:=Microsoft.Office.Interop.Word.WdReplace.wdReplaceAll, Forward:=True, Wrap:=Microsoft.Office.Interop.Word.WdFindWrap.wdFindContinue)
End With
WordApp.activeDocument.PrintOut()
WordApp.Quit()
WordApp = Nothing

这段代码把WORD文档指定内容替换掉，然后打印成功。可问题是，我不想替换掉WORD文档中的文本，只想让它把替换的内容输出到打印机就可以了。

简单讲，就是在文档中找到A，把A换成B输出到打印机，文档中的A不被替换。

有没有什么快捷的方法？难道让我用这程序再替换回来一次？那就太麻烦了吧。

或者说，我根本就不想让WORD弹出来问我保不保存，我想让他在后台运行，根本不出来。

好像可以用 start.Select()方法，但没看懂是怎么用的。
另外，直接另存SAVEAS，让他在后台生成一个废文件，好像也是一个办法，也不知道怎么用。

[Mamiting]

有没有人帮帮我，CSDN的大虾们呢。没人理吗？

[devmiao]

复制一个临时文件，去修改它就是了。

[以专业开发人员为伍]

可疑的设计，不能帮。

[Mamiting]

这只是一段测试程序好不，本来要输出一个复杂报表的，不想写那么多，先测试一下。

[eecool]

用word模板，然后拷贝到一个新的位置，程序再读新的word