Как показать прогресс массового слияния
Я создал приложение, которое использует слово в качестве инструмента слияния, используя CSV в качестве источника данных. Однако, когда я запускаю его, я не могу показать пользователю процесс слияния, что является болью, когда это происходит из-за запуска пакетов по 500-1 тыс. Записей.
Я смог сделать это при объединении записей с отдельными документами, зациклив процесс, но это не работает, когда я объединяю записи в один массовый документ для печати.
Есть ли способ сделать это, или я просто желаю думать?
Код ниже для справки:
With GlobalVar.WordApp
.ActiveDocument.MailMerge.OpenDataSource(Name:=GlobalVar.sCSV,
[ReadOnly]:=True,
ConfirmConversions:=False,
LinkToSource:=False,
AddToRecentFiles:=False,
PasswordDocument:="",
PasswordTemplate:="",
WritePasswordDocument:="",
WritePasswordTemplate:="",
Revert:=True,
Format:=Microsoft.Office.Interop.Word.WdOpenFormat.wdOpenFormatAuto,
Connection:="",
SQLStatement:="",
SQLStatement1:="",
With .ActiveDocument.MailMerge
.Destination = Microsoft.Office.Interop.Word.WdMailMergeDestination.wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = 1
.LastRecord = GlobalVar.iTotal
End With
.Execute()
End With
End With