将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就可以，不出现提示窗口？