Word合并VBA代码

Sub DocMerge()
''' 合并多个文档
'''用法：先创建一个目标文档，依次加入源文件，最后保存
'''by:CMooon
'''2012.02.26Dim 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 WithOn Error Resume Next
If myDialog.Show <> -1 Then Exit SubFor i = 1 To myDialog.SelectedItems.countSelection.InsertFile FileName:=myDialog.SelectedItems(i)Selection.InsertBreak wdPageBreakMsgBox myDialog.SelectedItems(i) & " 成功合并！"
NextEnd Sub

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

Word合并VBA代码相关推荐

word vba 转换html,快速合并文本到Word – 利用VBA代码
为了提高录入的效率,同事分别安排下属录入不同的文本,并以数字序号进行命名,最后再在Word中将这些文本文档合并起来.常规的方法是切换到"插入"选项卡,在"文本" ...
Word 利用 vba 代码实现拆分文档页数
Word使用VBA实现拆分文档页数实现步骤: 新建一个记事本,添加以下代码 Sub 利用VBA实现Word文档的拆分() On Error Resume Next Dim doc1 As Docum ...
来一段word的vba代码，实现将文档中的图片尺寸统一
以下是一段VBA代码,它可以实现将Microsoft Word文档中的所有图片尺寸统一为指定的高度和宽度: Sub ResizeAllImages()Dim shp As Shape For Each ...
[VBA]EXCEL同工作簿中多工作表合并VBA代码
代码分为三部分: 第一部分是新建一个汇总的工作表,并重新自定义命名: 第二部分是逐一将各个工作表复制粘贴到汇总工作表中: 第三部分为提示,即当合并工作完成后弹出提示. 代码如下: Sub Comb() ...
利用VBA代码合并多个Excel表格
步骤1:将待合并表格放入同一文件夹步骤2:在文件件中新建一个表格步骤3:在新表格中右击"sheet1"--"查询代码" 步骤4:输入上述代码,并运行子程序. ...
【word】使用VBA代码，自定义页面数拆分大Word文件为多个小文档并指定名称保存
使用VBA代码,自定义页面数拆分大Word文件为多个小文档并指定名称保存 alt+F11打开开发选项-->选择[插入]-->[模块]-->弹出代码编辑窗口,插入下面代码,按照需要修改 ...
vba批量合并指定的sheet_Excel通用VBA代码一键合并多个工作表至总表！
原标题:Excel通用VBA代码一键合并多个工作表至总表! 一个工作簿中会有很多个相同格式,标题行内容和顺序都一样的工作表,我们想把这个工作表中的数据全部放至一个总表数据中. 图片上示例是3个工作表, ...
[Office VBA 宏]我好不容易编写的VBA代码如何加密保护？（Word版）
[Office VBA 宏]我好不容易编写的VBA代码如何加密保护?(Word版) 文档工作中,繁琐重复的操作简直苛政猛于虎啊. 利用VBA宏加快工作效率,降低苛政杂税容易吗? 好不容易写好的代码,如 ...
vba word 查找_Word批量查找替换VBA代码
编写该代码的目的: 初衷该代码最初用于我自己弄得一个用于批量化写word报告的东西,因为我原来需要写一堆格式化的报告,不同报告间除了数据发生了变化,其他几乎一模一样,我想偷懒(主要是我容易写错),就 ...

Word合并VBA代码

Word合并VBA代码相关推荐

最新文章

热门文章