2013年2月5日
批量合并word文档
摘要： 1、新建一个WORD文档，命名后保存到和要合并的1000多篇文档一个文件夹里。2、按ALT+F11进入宏编辑器。3、双击左上角的ThisDocument,在右侧的代码区粘贴代码如下：Sub 合并文档()Application.ScreenUpdating = FalseMyPath = ActiveDocument.PathMyName = Dir(MyPath & "\" & "*.doc")i = 0Do While MyName <> ""If MyName <> ActiveDocume 阅读全文
posted @ 2013-02-05 20:31 曾先森在努力 阅读(724) 评论(0) 推荐(0) 编辑