20210518-2

EDOKA/EDEX/Serienbriefe/frmtextmarken.vb

@@ -263,7 +263,7 @@ Public Class frmtextmarken
         StartWord(True)
         objword.Documents.Open(dokumentname)
         objdoc = objword.ActiveDocument
-        sbdokumentname = objdoc.Name
+        If visible = True Then sbdokumentname = objdoc.Name
         objword.Visible = visible
         objword.WindowState = Microsoft.Office.Interop.Word.WdWindowState.wdWindowStateMaximize
     End Sub

EDOKA/Utils/Globals.vb

@@ -17,7 +17,7 @@ Module Globals
     Public WithEvents Generic_Event_Handler As New Generic_Event_Handler
     'EDOKA-Version
     Public Version As String = "5.6"
-    Public Versionsdatum As String = "18.06.2021"
+    Public Versionsdatum As String = "18.05.2021"
     Public Force_Exit As Boolean = False
     'Datenbankvariablen
     Public sConnectionString As String