Word旧式窗体域操作

 ‘‘‘ <summary>
    ‘‘‘ 功能说明：读取文件内容并设置其中所有的域
    ‘‘‘ </summary>
    ‘‘‘ <remarks></remarks>
    Function DoFieldFormFile(ByVal strContractGUID As String) As String
        Dim strFileGUID As String = MyDB.GetDataItemString("SELECT TOP 1 DocGUID FROM p_Documents WHERE DocType = ‘合同模板‘ and FkGUID=‘" & strContractGUID & "‘")
        Dim strReturn As String = "NO"
        If Not String.IsNullOrEmpty(strFileGUID) Then
            Dim dtDocInfo As DataTable
            Dim strFileName As String
            Dim strHtTemplateGUID As String
            Dim query As CPQuery
            ‘读取合同模板基础信息
            query = "SELECT FkGUID,DocType,DocName,FileName,Location,LastDocGUID,HtTypeCode ".AsCPQuery()
            query = query + " FROM p_Documents WHERE DocGUID=" + strFileGUID.AsQueryParameter()
            dtDocInfo = query.FillDataTable()
            If dtDocInfo.Rows.Count > 0 Then
                strFileName = dtDocInfo.Rows(0).Item("Location").ToString() + dtDocInfo.Rows(0).Item("FileName").ToString()   ‘文件路径
                strHtTemplateGUID = dtDocInfo.Rows(0).Item("LastDocGUID").ToString() ‘文件路径
            End If

            If Not String.IsNullOrEmpty(strFileName) Then
                ‘实例化一个word应用程序对象
                Dim docMyWord As myWord.Document
                Dim appMyWord As myWord.ApplicationClass
                Try
                    appMyWord = New myWord.ApplicationClass
                    Dim missing As Object = System.Reflection.Missing.Value
                    ‘实例化一个word文档对象
                    Dim i, intBKCount, j, m As Integer
                    ‘打开一个word对象
                    strFileName = Server.MapPath(strFileName)

                    If Dir(strFileName) = "" Then
                        Throw New Exception(strFileName & "路径下的文件不存在！")
                        Return "ERROR"
                    End If

                    docMyWord = appMyWord.Documents.Open(strFileName, missing, False, missing, missing, missing, missing, missing, missing, missing, missing, False, False, missing, missing, missing)
                    ‘激活
                    docMyWord.Activate()
                    ‘获取书签数量
                    intBKCount = docMyWord.FormFields.Count
                    If intBKCount > 0 Then
                        Dim strSQL As String = ""
                        Dim dtMapping, dtContract As DataTable
                        Dim strMappingFields As String = ""
                        Dim strTemp, strTemplateName As String

                        ‘循环中用到的临时字段名
                        Dim strTempFielename As String

                        ‘合同关键信息中编辑的字段
                        Dim hashGjXx As Hashtable = ContractMNG.GetContractDataHash(strContractGUID)
                        If hashGjXx.Keys.Count > 0 Then
                            i = 0
                            For i = 0 To intBKCount - 1
                                strTemplateName = docMyWord.FormFields.Item(i + 1).Name
                                If hashGjXx.Contains(strTemplateName) Then
                                    docMyWord.FormFields.Item(i + 1).Result = hashGjXx.Item(strTemplateName)
                                    docMyWord.FormFields.Item(i + 1).Enabled = False
                                End If
                            Next
                        End If

                        query = "SELECT TemplateName,ShowName,MappingField,MappingFieldName  ".AsCPQuery()
                        query = query + " FROM cb_HtTemplateMapping WHERE HtTemplateGUID=" + strHtTemplateGUID.AsQueryParameter()
                        dtMapping = query.FillDataTable()

                        ‘循环对应域的值
                        If dtMapping.Rows.Count > 0 Then
                            i = 0
                            For i = 0 To dtMapping.Rows.Count - 1
                                strTemp = dtMapping.Rows(i).Item("MappingField").ToString
                                If strTemp <> "" Then
                                    strMappingFields &= strTemp + ";"    ‘读取合同模板和合同表的映射字段（对应合同视图的英文字段名称）
                                End If
                            Next
                        End If

                        If strMappingFields.Length > 0 Then
                            strMappingFields = strMappingFields.Substring(0, strMappingFields.Length - 1).Replace(";", ",")
                        End If

                        ‘循环取得合同表中的值
                        If strMappingFields <> "" Then
                            strSQL = "SELECT " & strMappingFields
                            query = strSQL.AsCPQuery()
                            query = query + " FROM vcb_contract WHERE ContractGUID =" + strContractGUID.AsQueryParameter()
                            dtContract = query.FillDataTable()
                            If dtContract.Rows.Count > 0 Then
                                i = 0
                                For i = 0 To intBKCount - 1
                                    strTemplateName = docMyWord.FormFields.Item(i + 1).Name
                                    If dtMapping.Select("TemplateName=‘" & strTemplateName & "‘").Length > 0 Then
                                        strTempFielename = dtMapping.Select("TemplateName=‘" & strTemplateName & "‘")(0).Item("MappingField")
                                        If strTempFielename <> "" Then
                                            docMyWord.FormFields.Item(i + 1).Result = IIf(IsDBNull(dtContract.Rows(0)(strTempFielename)), "", dtContract.Rows(0)(strTempFielename).ToString())
                                            docMyWord.FormFields.Item(i + 1).Enabled = False
                                        End If
                                    End If
                                Next
                            End If
                        End If

                        ‘存储插入的图片
                        Dim dtPic As DataTable = MyDB.GetDataTable(String.Format("SELECT SUBSTRING(DocName,0 ,LEN(docname) - LEN(RIGHT(DocName, CHARINDEX(‘.‘, REVERSE(DocName)))) + 1) as docname,replace(location,‘\‘,‘\\‘)+FileName as FILENAME FROM dbo.p_Documents WHERE FkGUID = ‘{0}‘ AND DocType = ‘合同图片‘ ORDER BY CreateOn DESC", strContractGUID))
                        Dim iCount As Integer = dtPic.Rows.Count
                        Dim bRange As String = ""
                        Dim sFile As String = ""
                        For n As Integer = 0 To iCount - 1
                            bRange = dtPic.Rows(n)("docname").ToString()
                            sFile = Server.MapPath("/") & dtPic.Rows(n)("FileName").ToString()
                            InsertPictureAtBookmark(docMyWord, bRange, sFile)
                        Next


                        docMyWord.Save()
                    End If
                    strReturn = "OK"
                Catch ex As Exception
                    strReturn = "ERROR"
                    Throw New Exception(ex.Message)
                Finally
                    ‘释放资源
                    If (Not docMyWord Is Nothing) Then
                        docMyWord.Close(Nothing, Nothing, Nothing)
                    End If
                    If (Not appMyWord Is Nothing) Then
                        appMyWord.Quit(Nothing, Nothing, Nothing)
                    End If
                End Try
            End If
        End If
        Return strReturn
    End Function


    Private Function InsertPictureAtBookmark(ByVal doc As myWord.Document, ByVal bookmarName As String, ByVal pictureFileName As String)
        Dim bks As myWord.Bookmarks = doc.Bookmarks
        Dim bookmark As myWord.Bookmark
        Dim linkToFile As Boolean = False
        Dim saveWithDocument As Boolean = True
        bookmark = bks.Item(bookmarName)
        If String.Equals(bookmark.Name, bookmarName) Then
            ‘Dim boolMarkRange As myWord.Range = doc.Range(bookmark.Range.Start, bookmark.Range.End)
            bookmark.Range.Delete()
            ‘For Each inlineShape As myWord.Shape In bookmark.Application.ActiveDocument.InlineShapes
            ‘    ‘inlineShape.Type
            ‘    inlineShape.Delete()
            ‘Next
            ‘If bookmark.Application.ActiveDocument.InlineShapes.Count > 0 Then
            ‘    bookmark.Application.ActiveDocument.InlineShapes.Item(1).Delete()
            ‘End If
            ‘doc.Application.ActiveDocument.InlineShapes.AddPictureBullet(pictureFileName, bookmark.Range)

            doc.Application.ActiveDocument.InlineShapes.AddPicture(pictureFileName, linkToFile, saveWithDocument, bookmark.Range)
        End If
    End Function