蓝老师好！我把选中的多个Word文件路径放入目录树中，然后新建一个Word文档接受合并的文件，在合并时，每一个文件后面插入分页符进行分隔。
在运行中提示第一个文件被占用，还有一些其他的问题，请老师帮助看看是哪里的问题？
谢谢！
此主题相关图片如下：截屏图片.jpg
Dim wapp1 As New MSWord.Application
Dim wapp2 As New MSWord.Application
try
'新建一个Word接收文档
Dim app As New MSWord.Application
Dim missing = System.Reflection.Missing.Value
Dim nDoc = App.Documents.Add(missing, missing, missing, missing)
Dim nm As String = Format(Date.Now, "yyyyMMddhhmmss")
nDoc.SaveAs(ProjectPath & "Word合并\" & nm & ".doc")
app.quit
'msgbox("新建word成功")
Dim doc1 = wapp1.Documents.Open(ProjectPath & "Word合并\" & nm & ".doc")
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1") '
Dim nn As WinForm.TreeNode
Dim ere As Integer = tr.Nodes.Count - 1
Dim bb As Integer
For bb = 0 To ere
nn = tr.Nodes(bb)
Dim doc2 = wapp2.Documents.Open(nn.Text)
wapp2.ActiveWindow.Selection.WholeStory
wapp2.ActiveWindow.Selection.copy
wapp1.ActiveWindow.Selection.WholeStory
wapp1.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)
'在文件后插入分页符
If bb > 1 Then
Dim pBreak = MSWord.WdBreakType.wdSectionBreakNextPage
wapp1.ActiveWindow.Selection.InsertBreak(pBreak)
End If
wapp1.ActiveWindow.Selection.paste
Next
wapp2.Quit
wapp1.Visible = True
catch ex As exception
msgbox(ex.message)
wapp1.Quit
wapp2.Quit
finally
End try
加好友 
发短信
Post By：2019/10/20 21:12:00 [只看该作者]
