ModMain.Generate_Word Method EDKB12WS.ModMain.Generate_Word Method Generate_Word Method topic_00000000000003BF EDKB12WS.ModMain.Generate_Word EDKB12WS.ModMain.Generate_Word ModMain.Generate_Word EDKB12WS.ModMain.ModMain.Generate_Word EDKB12WS.ModMain.Generate_Word EDKB12WS (in EDKB12WS.exe) ModMain.Generate_Word Method EDKB12WS.ModMain topic_00000000000003BF

ModMain.Generate_Word Method

Assembly: EDKB12WS (in EDKB12WS.exe)

Visual Basic Private Shared Function Generate_Word() As ]]>Booleana]]>]]> C# private static ]]>boola]]>]]> Generate_Word() C++ private: static ]]>boola]]>]]> Generate_Word() JScript private static function Generate_Word() : ]]>booleana]]>]]>;

$END-IFNOTEMPTY$

Visual Basic Copy Code ]]> Private Function Generate_Word() As Boolean    If Param.DebugMode Then        DivFnkt.InsertJournale("EDKB12: Start Generate_Word", clsDivFnkt.Enum_InfoTyp.Information)    End If    Try        If Not StartWord() Then            Return True            Exit Function        End If        objword.Documents.Open(DokumentFilename)        docword = objword.ActiveDocument        objword.NormalTemplate.Saved = True        objword.Visible = True        If Not Word_Werte_Auslesen(xdata) Then            DivFnkt.InsertJournale("EDKB12::Fehler:: Generate_Word: Word_Werte_auslesen", clsDivFnkt.Enum_InfoTyp.Fehler)            If Param.DebugMode Then                DivFnkt.InsertJournale("EDKB12::Fehler:: Generate_Word: Word_Werte_auslesen", clsDivFnkt.Enum_InfoTyp.Information)            End If        End If        If Not Dokument_Vervollstaendigen(xdata) Then            DivFnkt.InsertJournale("EDKB12::Fehler:: Generate_Word: Dokument_Vervollstaendigen", clsDivFnkt.Enum_InfoTyp.Fehler)            If Param.DebugMode Then                DivFnkt.InsertJournale("EDKB12::Fehler:: Generate_Word: Dokument_Vervollstaendigen", clsDivFnkt.Enum_InfoTyp.Information)            End If        End If        docword = objword.ActiveDocument        docword.Save()        docword.Close()        docword = Nothing        objword.Quit(False)        objword = Nothing        If Save_Doc() = True Then            If Param.DebugMode Then                DivFnkt.InsertJournale("EDKB12: Ende Generate_Word (True)", clsDivFnkt.Enum_InfoTyp.Information)            End If            Return True        Else            DivFnkt.InsertJournale("EDKB12::Fehler:: Generate_Word: Save_Doc", clsDivFnkt.Enum_InfoTyp.Fehler)            If Param.DebugMode Then                DivFnkt.InsertJournale("EDKB12::Fehler:: Generate_Word: Save_Doc", clsDivFnkt.Enum_InfoTyp.Information)            End If            Return False        End If    Catch ex As Exception        DivFnkt.InsertJournale("EDKB12::Fehler:: Generate_Word::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler)        If Param.DebugMode Then            DivFnkt.InsertJournale("EDKB12: Ende Generate_Word (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information)        End If        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