当前位置:编程学习 > C#/ASP.NET >>

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
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,