将word1、word2....文档合并一个word文档

将word1、word2....文档合并一个word文档

 (2010-03-31 14:48:26)

转载▼

标签：  application   t2   c2   add   杂谈

分类： vf学习

Appdoc=crea("word.application")
Appdoc.visible= .T.
Appdoc.Documents.Add

*!*打开T1.doc将内容复制到上面代码产生的word新建文档
Appdoc1=crea("word.application")
Appdoc1.Application.Documents.Open("d:\T1.doc")
Appdoc1.visible= .f.
Appdoc1.Selection.WholeStory
Appdoc1.Selection.copy
Appdoc.Selection.Paste
Appdoc1.activedocument.saved=.t.
Appdoc1.quit
RELEASE appdoc1

*!*打开T2.doc将内容复制到上面代码产生的word新建文档
Appdoc2=crea("word.application")
Appdoc2.Application.Documents.Open("d:\T2.doc")
Appdoc2.visible= .f.
Appdoc2.Selection.WholeStory
Appdoc2.Selection.copy
Appdoc.Selection.Paste
Appdoc2.activedocument.saved=.t.
Appdoc2.quit
RELEASE appdoc2

*!*word新建文档保存为T3.doc
Appdoc.Documents(1).Saveas("d:\T3.doc")
运行时，打开word文档，提示所做的更改影响共用模板normal,是否保存所做的更改，请给修一下，怎样才能只要t3.doc就可以，不出现提示窗口？