Word合并VBA代码

最新推荐文章于 2024-04-05 14:14:21 发布

dengkai3582

最新推荐文章于 2024-04-05 14:14:21 发布

阅读量1.4k

点赞数 1

原文链接：http://www.cnblogs.com/cmooon/archive/2012/02/27/2369333.html

版权

本文分享了一篇关于如何利用VBA代码批量合并多个Word文档的教程，适合需要高效处理大量Word文件的用户参考。

摘要由CSDN通过智能技术生成

Sub DocMerge()
''' 合并多个文档
'''用法：先创建一个目标文档，依次加入源文件，最后保存
'''by:CMooon
'''2012.02.26

Dim myDialog As FileDialog
Dim i As Long
Const wdPageBreak = 7 ' 分页符

Set myDialog = Application.FileDialog(msoFileDialogFilePicker)

With myDialog
      .Title = "请选择要合并的文档（可以多选）"
      .AllowMultiSelect = True
      .Filters.Clear
      .Filters.Add "所有 WORD 文件", "*.doc", 1
End With

On Error Resume Next
If myDialog.Show <> -1 Then Exit Sub

For i = 1 To myDialog.SelectedItems.count
    Selection.InsertFile FileName:=myDialog.SelectedItems(i)
    Selection.InsertBreak wdPageBreak
    MsgBox myDialog.SelectedItems(i) & " 成功合并！"
Next

End Sub

转载于:https://www.cnblogs.com/cmooon/archive/2012/02/27/2369333.html