ModMain.Word_Werte_Auslesen Method EDKB12WS.ModMain.Word_Werte_Auslesen Method Word_Werte_Auslesen Method topic_00000000000003C1 EDKB12WS.ModMain.Word_Werte_Auslesen EDKB12WS.ModMain.Word_Werte_Auslesen ModMain.Word_Werte_Auslesen EDKB12WS.ModMain.ModMain.Word_Werte_Auslesen EDKB12WS.ModMain.Word_Werte_Auslesen EDKB12WS (in EDKB12WS.exe) ModMain.Word_Werte_Auslesen Method EDKB12WS.ModMain topic_00000000000003C1

ModMain.Word_Werte_Auslesen Method

Assembly: EDKB12WS (in EDKB12WS.exe)

Visual Basic Public Shared Function Word_Werte_Auslesen( _   ByVal xdata As ]]>DataTablea]]>]]> _ ) As ]]>Booleana]]>]]> C# public static ]]>boola]]>]]> Word_Werte_Auslesen(   ]]>DataTablea]]>]]> xdata ) C++ public: static ]]>boola]]>]]> Word_Werte_Auslesen(   ]]>DataTablea]]>]]>^ xdata ) JScript public static function Word_Werte_Auslesen(    xdata : ]]>DataTablea]]>]]> ) : ]]>booleana]]>]]>; Parametersxdata

$END-IFNOTEMPTY$

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

Windows 8, Windows Server 2012, Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows XP SP2 x64 Edition, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2 The .NET Framework does not support all versions of every platform. For a list of the supported versions, see ]]>System Requirementsa]]>]]>.

.NET Framework Supported in: 4.5, 4, 3.5, 3.0, 2.0, 1.1, 1.0 .NET Compact Framework Supported in: 3.5, 2.0, 1.0 XNA Framework Supported in: 3.0, 2.0, 1.0

Reference ModMain Class ModMain ModMain Members