VBA：将多个Word文件组合成一个后，Microsoft Word进程不会退出

概述VBA：将多个Word文件组合成一个后，Microsoft Word进程不会退出

我正在尝试将多个Word文件合并为一个。 我正在MS Excel中使用VBA例程。 Word文件都在一个名为“文件”的文件夹中，我想在一个文件夹中创build一个新文件“combinedfile.docx”。 我面临的问题是在合并文件后（不pipe它是否在VBA函数执行后退出），Word过程的行为。 在一些机器上，这个过程工作正常（除了页面2和最后一页为空白），而在其他一些机器上，合并的文档包含一个空白页面，进程pipe理器显示由VBA函数启动的Word进程仍然是运行。

我不习惯于VBA编程，正如你可以在下面的代码中看到的，我不知道正确的方式来closures打开的文档，并退出一个开放的Word过程。 如果有人可以看看我已经做了什么，并build议一种方法来解决这个问题，这将是非常有益的。

我也有兴趣知道这是否合并几个Word文件的正确方法。 如果有更好的方法，请让我知道。

'the flow: ' start a word process to create a blank file "combinedfile.docx" ' loop over all documents in "files" folder and do the following: ' open the file,insert it at the end of combinedfile.docx,then insert pagebreak ' close the file and exit the word process filesdir = ActiveWorkbook.Path + "" + "files" thisdir = ActiveWorkbook.Path + "" singlefile = thisdir + "combinedfile.docx" 'if it already exists,delete If fileExists(singlefile) Then SetAttr singlefile,vbnormal Kill singlefile End If Dim wordapp As Word.Application Dim singledoc As Word.document Set wordapp = New Word.Application Set singledoc = wordapp.documents.Add wordapp.Visible = True singledoc.SaveAs filename:=singlefile singledoc.Close 'i do both this and the line below (is it necessary?) Set singledoc = nothing wordapp.Quit Set wordapp = nothing Joinfiles filesdir + "*.docx",singlefile Sub Joinfiles(alldocs As String,singledoc As String) Dim wordapp As Word.Application Dim doc As Word.document Set wordapp = New Word.Application Set doc = wordapp.documents.Open(filename:=singledoc) Dim filesdir As String filesdir = ActiveWorkbook.Path + "" + "files" docpath = Dir(alldocs,vbnormal) While docpath "" doc.Bookmarks("EndOfDoc").Range.Insertfile (filesdir + docpath) doc.Bookmarks("EndOfDoc").Range.InsertBreak Type:=wdPageBreak docpath = Dir Wend doc.Save doc.Close Set doc = nothing wordapp.Quit Set wordapp = nothing End Sub

是否有可能在linux上查看Excel文件

使用Apache POI打开.xlsx文件会导致出现NoClassDefFoundError InvalIDFormatExceptionexception

从excel文件读取cpu使用率达到100％？

用通用名称部分打开文件

运行Excel之前dynamic设置环境variables的正确方法是什么？

从两列随机生成独特的组合

从命令提示符中提取MS Excel电子表格中单个单元格的值

Excel保存不带换行符的制表符分隔文件（UNIX / Mac OS X）

在batch file中用批处理脚本与vbscript命令问题

我可以使用oleDbConnection Excel ACE驱动程序从不可查找的System.IO.Stream而不是文件读取Excel文件吗？

我建议按以下方式优化您的代码：

只打开WordApp一次，并将文件移入，而不关闭/重新打开

没有必要先杀掉combineddoc，它会被新文件覆盖

不需要Word.document对象，所有的都可以在Word.Application对象中完成

所以代码变得更简单了：

Sub Merge() Dim WordApp As Word.Application Dim filesDir As String,ThisDir As String,Singlefile As String,DocPath As String Dim FNArray() As String,IDx As Long,Jdx As Long ' NEW 11-Apr-2013 filesDir = ActiveWorkbook.Path + "" + "files" ThisDir = ActiveWorkbook.Path + "" Singlefile = ThisDir + "combinedfile.docx" Set WordApp = New Word.Application ' NEW 11-Apr-2013 START ' read in into array IDx = 0 ReDim FNArray(IDx) FNArray(IDx) = Dir(filesDir & "*.docx") do while FNArray(IDx) <> "" IDx = IDx + 1 ReDim Preserve FNArray(IDx) FNArray(IDx) = Dir() Loop ReDim Preserve FNArray(IDx - 1) ' to get rID of last blank element BubbleSort FNArray ' NEW 11-Apr-2013 END With WordApp .documents.Add .Visible = True ' REMOVED 11-Apr-2013 DocPath = Dir(filesDir & "*.docx") ' REMOVED 11-Apr-2013 do while DocPath <> "" ' REMOVED 11-Apr-2013 .Selection.Insertfile filesDir & DocPath ' REMOVED 11-Apr-2013 .Selection.TypeBackspace ' REMOVED 11-Apr-2013 .Selection.InsertBreak wdPageBreak ' REMOVED 11-Apr-2013 DocPath = Dir ' REMOVED 11-Apr-2013 Loop ' NEW 11-Apr-2013 START For Jdx = 0 To IDx - 1 .Selection.Insertfile filesDir & FNArray(Jdx) .Selection.TypeBackspace .Selection.InsertBreak wdPageBreak Next Jdx ' NEW 11-Apr-2013 END .Selection.TypeBackspace .Selection.TypeBackspace .Selection.document.SaveAs Singlefile .Quit End With Set WordApp = nothing End Sub ' NEW 11-Apr-2013 START Sub BubbleSort(Arr) Dim strTemp As String Dim IDx As Long,Jdx As Long Dim VMin As Long,VMax As Long VMin = LBound(Arr) VMax = UBound(Arr) For IDx = VMin To VMax - 1 For Jdx = IDx + 1 To VMax If Arr(IDx) > Arr(Jdx) Then strTemp = Arr(IDx) Arr(IDx) = Arr(Jdx) Arr(Jdx) = strTemp End If Next Jdx Next IDx End Sub ' NEW 11-Apr-2013 END

编辑2013年4月11日删除代码添加数组和原始注释bubblesort逻辑，以保证文件按字母顺序检索

总结

以上是内存溢出为你收集整理的VBA：将多个Word文件组合成一个后，Microsoft Word进程不会退出全部内容，希望文章能够帮你解决VBA：将多个Word文件组合成一个后，Microsoft Word进程不会退出所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。