[求助]多个word文档合并出现问题！

笑清风

因为有200多个word文件需要合并到一个word文档里面去，所以就用了word里面的插入文件功能，结果发现好像有页数限制，最多只能到75页，造成了合并不全。

不知道是哪里设置出了问题还是word自身功能的缺陷，麻烦各位高手帮忙了，谢谢！

wdwc

Sub test()
'
'把待插入文件放在同一个文件夹下

    Dim fs As FileSearch, i As Long, n As Long
    Set fs = Application.FileSearch
    Documents.Add
    With fs
        .NewSearch
        .LookIn = InputBox("输入待插入文件所在文件夹路径！")
        .FileType = msoFileTypeWordDocuments
        If .Execute > 0 Then
            For i = 1 To .FoundFiles.Count
            Selection.InsertFile FileName:=.FoundFiles.Item(i)
            n = n + 1
            Next
        End If
    End With
    MsgBox "共插入" & n & "个文档！"
End Sub

weld

我很菜，二楼的这个意思是。。。

ralrz

把代码所在的文件也放到需要合并的文件中 ，所有需要合并的文件都放在这个文件夹中。
每插入一篇文章后，再插入一个人工分页符，以区别不同的文章。

 

 Dim fs As FileSearch, i As Long, n As Long
    Set fs = Application.FileSearch
    ml = ActiveDocument.Path
    bwj = ActiveDocument.Name    
    Documents.Add    
    With fs
        .NewSearch
        .LookIn = ml
        .FileType = msoFileTypeWordDocuments
        If .Execute > 0 Then
            For i = 1 To .FoundFiles.Count
            If .FoundFiles.Item(i) <> ml & "\" & bwj Then
            Selection.InsertFile FileName:=.FoundFiles.Item(i)
            Selection.InsertBreak Type:=wdPageBreak
            n = n + 1
            End If
            Next
        End If
    End With
    MsgBox "共合并了" & n & "篇文档"

[此贴子已经被作者于2008-4-21 22:29:12编辑过]

笑清风

[em04]不好意思，公司网络管制，好久没有上来了

谢谢楼上各位大虾的热心帮助啊

[em17]

easelab

http://club.excelhome.net/viewth ... d=643700#pid2090676
五楼的方法不错