[求助]关于批量合并word文档的疑问

tangqingfu

在学习“七叶一枝梅”兄的文章批量合并word文档（百篇以上！！）时，我们在运行代码时要在InputBox里输入要合并的文件所在文件夹的路径，感觉比较麻烦，能否采用弹出浏览对话框，选择路径的方式更人性化些，同时，如果我们只是想合并其文件夹下的部分文档（即所选文档），下面的代码就不行了。

因此有此一问，请各位网友帮忙一下，如何修改代码？

以下是七叶一枝梅兄当时分享的代码：

Sub hebing()
Dim hb, fso, f, f1, s, sf
hb = InputBox("请输入您要合并的文件所在的文件夹。", "输入要合并的目录", "比如像C:\text\这样")'这句是没有提行的，请注意。
If hb <> "" Then
  ChangeFileOpenDirectory (hb)
  Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder(hb)
    Set sf = f.Files
    For Each f1 In sf
     s = f1.Name
    Selection.InsertFile FileName:=(s), Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False'这句与上面写为同一行，也是没有提行的，请注意。
    Next
Else
  End If
End Sub

wdwc

楼主的想法很好，实现起来也不难。只是感觉还是放在一个文件夹下逐个插入更方便。如果用文件选取框不知道是否有个数限制。如果有的话反而更麻烦。

请参考：

http://club.excelhome.net/viewthread.php?tid=302044&replyID=&skin=0

sylun

前面改为如下语句行吗？

Dim myDialog As FileDialog
Set myDialog = Application.FileDialog(msoFileDialogFolderPicker)
If myDialog.Show = -1 Then hb = myDialog.InitialFileName

tangqingfu

谢谢wdwd和sylun兄！

我希望的功能是：在运行代码时，弹出对话框，选择路径后，可以对该路径下的所选文档（部分或全部）进行全部或部分合并。

我想部分代码应该是采用：

Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
With myDialog
        .Filters.Clear    '清除所有文件筛选器中的项目
        .Filters.Add "所有 WORD 文件", "*.doc", 1    '增加筛选器的项目为所有WORD文件
        .AllowMultiSelect = True    '允许多项选择
        If .Show <> -1 Then Exit Sub

……

其他的代码该如何写呢？希望帮忙解决一下。

[此贴子已经被作者于2008-5-28 9:41:13编辑过]

wdwc

Sub b()
    Dim myDialog As FileDialog
    Dim i As Long
    On Error Resume Next
    Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
    With myDialog
        .AllowMultiSelect = True
        .Filters.Clear
        .Filters.Add "所有 WORD 文件", "*.doc", 1
    End With
    If myDialog.Show <> -1 Then Exit Sub
    For i = 1 To myDialog.SelectedItems.Count
        Selection.InsertFile FileName:=myDialog.SelectedItems(i)
    Next
End Sub

请测试

[此贴子已经被作者于2008-5-28 17:58:44编辑过]

tangqingfu

谢谢wdwc兄，测试成功！

B2VBA

谢谢楼上的各位，WDWC的代码非常方便。啊

mubaijin

学习了 很好用

同心/ty

wdwc 发表于 2008-5-28 17:53
Sub b()&nbsp;&nbsp;&nbsp; Dim myDialog As FileDialog&nbsp;&nbsp;&nbsp; Dim i As Long&nbsp;&nbsp;&nbs ...

老师你的代码很好用，但有一个问题就是如果后面一个文件是横向排版，就不好用，能否解决问题？