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