求一个word合并，word文档合并的例子

cgfgfv

合并一个目录下的所有word文档，并且保留原有格式，我已经论坛搜到一个案例，但是合并后格式就变了，不知道这么改动


补充内容 (2025-8-11 09:17):
.版本 2

.局部变量 word, 对象
.局部变量 文件数组, 文本型, , "0"
.局部变量 文件, 文本型
.局部变量 保存, 文本型
.局部变量 i, 整数型

.计次循环首 (3, i...

cgfgfv

[JavaScript] 纯文本查看 复制代码

.版本 2

.局部变量 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.清除 ()

圆圈

关于合并word文档doc的问题
https://bbs.125.la/forum.php?mod=viewthread&tid=14564021

chaqing

格式不变需要一定条件，纸张，边距，等等信息如果不同，那可能引起重新排版吧，如果不统一那可能要单独差异处理，比方分节并前后不统一？

cgfgfv

圆圈 发表于 2025-8-11 09:21
关于合并word文档doc的问题
https://bbs.125.la/forum.php?mod=viewthread&tid=14564021

我现在用的就是这个，合并后，字体，段落格式变了

cgfgfv

chaqing 发表于 2025-8-11 13:49
格式不变需要一定条件，纸张，边距，等等信息如果不同，那可能引起重新排版吧，如果不统一那可能要单独差异 ...

这么复杂吗，就能实现一个个粘贴到空白文档，实现合并也行

chaqing

cgfgfv 发表于 2025-8-11 14:06
这么复杂吗，就能实现一个个粘贴到空白文档，实现合并也行

比方，B5排版粘到A4，横版粘到竖版，大边距粘到小边距，格式会不会变？