WORD文档合并方法
来源:互联网 发布:淘宝 apple官方旗舰店 编辑:程序博客网 时间:2024/05/11 05:24
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、运行,等候几分钟,即可完成合并
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、运行,等候几分钟,即可完成合并
0 0
- WORD文档合并方法
- 批量合并word文档
- 实现word文档合并
- word 文档合并
- C# 合并word文档
- 批量合并word文档
- 合并多个Word文档
- Word文档中--邮件合并
- word文档批量合并工具
- 合并多个Word文档
- 获取Word目录结构、合并Word文档
- 使用JasperReports合并多个报表的word文档问题解决方法
- C#把多个Word文档合并成一个的方法
- 用C#实现word文档合并
- 用C#来合并WORD文档
- word2010如何合并两个word文档
- C# 合并及拆分Word文档
- 使用Jacob合并Word文档并填充文档中的书签
- MVP下扫描蓝牙得到列表实例
- tomcat启动正常,但是访问项目时,404. Eclipse没有正确部署工程项目
- 10.javascript对象 核心对象 String
- 祝你幸福
- NSURLSession简介与入门
- WORD文档合并方法
- 对于任意正整数都可以找出至少一串连续奇数,它们的和等于该整数的立方,验证2-20是否满足。
- 11.javascript对象 核心对象 Date
- 高性能优化HTML页面
- wamp3下安装Composer
- 黑白棋经典残局(5)
- 12.javascript对象 核心对象 Math
- java基础第二季
- 位运算练习