vb.net实现了word合并,但是只能合并一次,当继续合并时候,出现错误
错误提示是Word 无法启动转换器 mswrd632.wpc。
未处理COMException
求指点,解决方法
Private Sub merge(ByVal mergeFileAdd As String, ByVal outFileAdd As String)
Dim fileArray As New ArrayList
Dim intCount As Integer = 0
Dim dirInfo As New DirectoryInfo(mergeFileAdd)
Dim objWord As New Word.Application
Dim fi As System.IO.FileInfo
For Each fi In dirInfo.GetFiles("*.doc")
'得到所有此目录下的word文件
If Not fileArray.Contains(fi.FullName) Then
'检查文件添加是否成功
If intCount = 0 Then
objWord.Documents.Add(fi.FullName)
'使用Documents.Add函数打开第一个文件
Else
objWord.Selection.InsertFile(FileName:=fi.FullName, Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False)
' 下一次使用 InsertFile方法插入文件
End If
objWord.Selection.EndKey(Unit:=6)
' 在文件的结尾去插入新的一页
intCount += 1
fileArray.Add(fi.FullName)
'填加合并后的稳当到fileArray
End If
Next
'让合并后的文件不可见
If Not objWord.Visible Then
objWord.Visible = False
End If
'关闭
If objWord.NormalTemplate.Saved = False Then objWord.NormalTemplate.Save()
objWord.Quit(True)
objWord = Nothing
End Sub
--------------------编程问答-------------------- 来个人那,结贴送分了,唉 --------------------编程问答-------------------- 在那句上出错的,把需要的参数重新初始化一下试试
补充:.NET技术 , VB.NET