Visual Basic

Copy Code

 Public Function Word_Werte_Auslesen(ByVal xdata As System.Data.DataTable) As Boolean
    Try
        Dim i As Integer
        Dim pos, pos2 As Integer
        For i = 0 To xdata.Rows.Count - 1
            xdata.Rows(i).Item("used") = 0
            If xdata.Rows(i).Item("beginntextmarke") <> "" And xdata.Rows(i).Item("endetextmarke") = "" Then
                Try
                    docword.Bookmarks.Item(xdata.Rows(i).Item("beginntextmarke")).Select()
                    xdata.Rows(i).Item("oldvalue") = convert(objword.Selection.Text)
                    xdata.Rows(i).Item("used") = 1
                Catch
                End Try
                If xdata.Rows(i).Item("beginntextmarke") = "TGEDKCompanyBBEB99" Then xdata.Rows(i).Item("used") = 1
            End If
            If xdata.Rows(i).Item("beginntextmarke") <> "" And xdata.Rows(i).Item("endetextmarke") <> "" Then
                Try
                    docword.Bookmarks.Item(xdata.Rows(i).Item("beginntextmarke")).Select()
                    pos = objword.Selection.Start
                    docword.Bookmarks.Item(xdata.Rows(i).Item("endetextmarke")).Select()
                    pos2 = objword.Selection.Start
                    objword.Selection.SetRange(Start:=pos, End:=pos2)
                    xdata.Rows(i).Item("oldvalue") = convert(objword.Selection.Text)
                    xdata.Rows(i).Item("used") = 1
                Catch
                End Try
            End If
            Try
                If xdata.Rows(i).Item("feldname") <> "" Then
                    Try
                        xdata.Rows(i).Item("oldvalue") = convert(docword.FormFields.Item(xdata.Rows(i).Item("feldname")).Result)
                        xdata.Rows(i).Item("used") = 1
                    Catch
                    End Try
                End If
            Catch
            End Try
        Next
        Return True
    Catch ex As Exception
        Return False
    End Try
 
 End Function