关于合并word文档doc的问题

ehuanle

目的：将桌面三个doc文档1.doc  2.doc  3.doc
          合并成一个新文档 合并.doc 并保存到桌面
要求：合并后的文档格式不被清除。

麻烦帮忙写一个例子！

梦寻简单

  

变量名	类 型	静态	数组	备 注
word	对象
文件数组	文本型		0
文件	文本型
保存	文本型
i	整数型

计次循环首 (3, i)
文件 ＝ 取运行目录 () ＋ “\” ＋ 到文本 (i) ＋ “.doc”
加入成员 (文件数组, 文件)
计次循环尾 ()
保存 ＝ 取运行目录 () ＋ “\合并1.doc”
word.创建 (“Word.Application”, )
word.写属性 (“Visible”, 假)
word.读对象型属性 (“Documents”, ).对象型方法 (“Add”, )
计次循环首 (取数组成员数 (文件数组), i)
word.读对象型属性 (“Selection”, ).通用方法 (“InsertFile”, 文件数组 [i])
计次循环尾 ()
word.读对象型属性 (“ActiveDocument”, ).对象型方法 (“SaveAs”, 保存)
word.读对象型属性 (“ActiveDocument”, ).对象型方法 (“Close”, )
word.清除 ()

.版本 2<br /> <br /> .局部变量 word, 对象<br /> .局部变量 文件数组, 文本型, , "0"<br /> .局部变量 文件, 文本型<br /> .局部变量 保存, 文本型<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (3, i)<br />     文件 ＝ 取运行目录 () ＋ “\” ＋ 到文本 (i) ＋ “.doc”<br />     加入成员 (文件数组, 文件)<br /> .计次循环尾 ()<br /> 保存 ＝ 取运行目录 () ＋ “\合并1.doc”<br /> word.创建 (“Word.Application”, )<br /> word.写属性 (“Visible”, 假)<br /> word.读对象型属性 (“Documents”, ).对象型方法 (“Add”, )<br /> .计次循环首 (取数组成员数 (文件数组), i)<br />     word.读对象型属性 (“Selection”, ).通用方法 (“InsertFile”, 文件数组 <i>)<br /> .计次循环尾 ()<br /> word.读对象型属性 (“ActiveDocument”, ).对象型方法 (“SaveAs”, 保存)<br /> word.读对象型属性 (“ActiveDocument”, ).对象型方法 (“Close”, )<br /> word.清除 ()