word中大纲视图上，如何批量增加子文档

雨雨♂专属

我想实现的是，在同一个文件夹下有很多word文档，然后在里面新建一个word添加个按钮，一点击就把所有的当前文件夹下的word添加到新word的子文档中。（添加子文档方法:先新建一个word文档，单击【视图】菜单中的【大纲】菜单项，切换到大纲视图。单击【大纲】工具栏中的【插入子文档】按钮，将弹出【插入子文档】对话框。在【插入子文档】对话框的【查找范围】框的文件列表中找到所要添加的文件，然后单击【打开】按钮。 经过上述操作后，选定的文档就作为子文档插入到主控文档中.但是这样就只能添加一个word我想把目录下所有的word都这样添加进去

）

雨雨♂专属

大家帮看下吧谢谢了

雨雨♂专属

为什么我的没有人帮看看呢？

雨雨♂专属

Sub 宏1()
'
' 宏1 宏
'
'
    ActiveWindow.ActivePane.View.Type = wdOutlineView
    If ActiveWindow.View = wdMasterView Then
        ActiveWindow.View = wdOutlineView
    Else
        ActiveWindow.View = wdMasterView
    End If
    '上面的代码不用看
    ChangeFileOpenDirectory ActiveDocument.Path & "\" '设置查找文档时 Word 所指向的文件夹。这个我自己改成了新建word文档所在的文件夹的路径。主要的在下面
    '需要向你刚才给我的代码那样做个循环把这个文件夹下面的所有word文档加入到这个主word中 (除了这个主文档本身)
    Selection.Range.Subdocuments.AddFromFile Name:="1.docx", _
        ConfirmConversions:=False, ReadOnly:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:=""  '在选定内容的开始处，将指定的子文档添至主文档这里是录制的宏，添加的子文件名称是1.docx但是在这个文件夹下名称是随机的所以这个名称不能是固定的这个应该可以实现取名称 ActiveDocument.Name
End Sub

MCXY

Sub 添加文件夹下多个子文档到主文档()
Dim myDialog As FileDialog
Dim i As Long
Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
If myDialog.Show <> -1 Then Exit Sub
For i = 1 To myDialog.SelectedItems.Count
ActiveDocument.ActiveWindow.View.Type = wdMasterView
ActiveDocument.Subdocuments.AddFromFile _
    Name:=myDialog.SelectedItems(i)
Next
MsgBox "完成！"
End Sub