批量合并word文档
2017-12-01 17:42
239 查看
1、新建一个WORD文档,命名后保存到和要合并的1000多篇文档一个文件夹里。
2、按ALT+F11进入宏编辑器。
3、双击左上角的ThisDocument,在右侧的代码区粘贴代码如下:
Sub 合并文档()
Application.ScreenUpdating = False
MyPath = ActiveDocument.Path
MyName = Dir(MyPath & "\" & "*.doc")
i = 0
Do While MyName <> ""
If MyName <> ActiveDocument.Name Then
Set wb = Documents.Open(MyPath & "\" & MyName)
Selection.WholeStory
Selection.Copy
Windows(1).Activate
Selection.EndKey Unit:=wdLine
Selection.TypeParagraph
Selection.Paste
i = i + 1
wb.Close False
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
End Sub
4、按F5运行,等候几分钟,即可完成合并
2、按ALT+F11进入宏编辑器。
3、双击左上角的ThisDocument,在右侧的代码区粘贴代码如下:
Sub 合并文档()
Application.ScreenUpdating = False
MyPath = ActiveDocument.Path
MyName = Dir(MyPath & "\" & "*.doc")
i = 0
Do While MyName <> ""
If MyName <> ActiveDocument.Name Then
Set wb = Documents.Open(MyPath & "\" & MyName)
Selection.WholeStory
Selection.Copy
Windows(1).Activate
Selection.EndKey Unit:=wdLine
Selection.TypeParagraph
Selection.Paste
i = i + 1
wb.Close False
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
End Sub
4、按F5运行,等候几分钟,即可完成合并
相关文章推荐
- 批量合并word文档
- 批量制作word文档-邮件合并
- 合并多个Word文档
- 如何批量删除word文档里的空白行
- 批量清除WPS/Word文档中的回车符
- 用C#编程合并多个WORD文档
- word文档批量忽略(新版office)
- 小技巧:用C#编程合并多个WORD文档
- 090717二次完善 批量修复被病毒破坏的word文档
- (转载)【Perl】批量word和PPT文档转pdf
- springMvcZip下载 压缩流实现批量下载Word文档
- 文档批量格式化之word技能
- 沫沫金提供:word文档批量选择表格【启用宏】
- 批量设置word文档的页面格式 word vba代码注释
- 实现word文档合并
- 合并两个WORD文档,并且修改Word中标签的内容
- 用宏将批量word文档转换为htm文件
- word文档标题级别批量更改——批量降级与升级实例
- C#把多个Word文档合并成一个的方法
- 【Perl】批量word和PPT文档转pdf