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