多个文件夹中的word如何按子文件名批量合并成一个word

wuqing960412

z9bhd 发表于 2021-4-8 13:41
你没有说每个文档要分开，加个分页符就可以了
Sub 合并子文件夹下文档()
    Dim filesys As Object, d ...

谢谢您，麻烦了

wuqing960412

感谢感谢感谢

wh1813

z9bhd 发表于 2021-4-8 13:41
你没有说每个文档要分开，加个分页符就可以了
Sub 合并子文件夹下文档()
    Dim filesys As Object, d ...

为啥使用这个宏合并的文件都是空白的啊

wh1813

wuqing960412 发表于 2021-4-9 14:27
感谢感谢感谢

楼主，你的这个宏可以用吗？能分享一下不？

wh1813

找到原因了，我的文档是doc的，换成docx就能用了

yxingsong

z9bhd 发表于 2021-4-8 13:41
你没有说每个文档要分开，加个分页符就可以了
Sub 合并子文件夹下文档()
    Dim filesys As Object, d ...

感谢大佬，正好需要，但是有个问题，需要请教，要合并的文件目录比较深，这个就没法用了，这个只能用于两级目录，比如目录D:\1\2\3\的word文件就没法合并了，该怎么处理呢？

饭饭99

z9bhd 发表于 2021-4-8 13:41
你没有说每个文档要分开，加个分页符就可以了
Sub 合并子文件夹下文档()
    Dim filesys As Object, d ...

请问你这个代码的使用条件格式是什么 我复制下来用不了