Update nach Anpassung BL

EDOKA/Office/WordLib.vb

@@ -298,6 +298,7 @@ Imports MW6.SDK.DataMatrix
 
         'Diverse Felder
         'm_objdc.DokVarClear("VarHerkunft")
+        'm_objdc.DokVarClear("VarHerkunft")
         m_objdc.DokVarAdd("VarHerkunft", "EDOKA")
         m_objdc.DokVarAdd("VarSchuldner", " ")
         m_objdc.DokVarAdd("VarAdresseVorname", " ")
@@ -4403,16 +4404,22 @@ eh:
                 End If
             Else
                 If Globals.Words.Count = 0 Then
-                    StartWord()
-                    objWord.NormalTemplate.Saved = True
-                    objWord.Visible = False
-                    Disable_Enable_MenuFunctions(True)
-                    If Me.WordnewInstance = True Then
-                        objWord.Quit()
-                    Else
-                        objWord.Visible = True
-                    End If
-                    objWord = Nothing
+                    '20210719 - Fehlerhandling optimieren
+                    Try
+                        StartWord()
+
+                        objWord.NormalTemplate.Saved = True
+                        objWord.Visible = False
+                        Disable_Enable_MenuFunctions(True)
+                        If Me.WordnewInstance = True Then
+                            objWord.Quit()
+                        Else
+                            objWord.Visible = True
+                        End If
+                        objWord = Nothing
+                    Catch
+                    End Try
+
                 End If
             End If
             DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentID, False, "")