update 20250202

VBOffice/Class1.vb

@@ -16,6 +16,9 @@ Public Class VBOffice
     Public Sub Fill_Word(ByRef word As Microsoft.Office.Interop.Word.Application, ByRef docata As clsDocData, create As Boolean, dialoggenerate As Object, progessvalue As Double)
         objWord = word
         docWord = word.ActiveDocument
+
+
+
         dg = dialoggenerate
         Progressbarvalue = 30
         Me.Progressvalue = progessvalue