Mail merge to individual files, there's any kind of progress indicator

eduzs · #1 08-31-2018, 07:08 PM

Based on the codes in https://www.msofficeforums.com/mail-...ps-tricks.html

While generating the mail merge individual files, is there a way to insert a progress bar or anything else besides watching windows blinking until the whole process is done?
Thanks.

macropod · #2 08-31-2018, 08:17 PM

Yes. For example, after:
Application.ScreenUpdating = False
insert:

Code:

Dim SBar As Boolean
' Store current Status Bar status, then switch on
SBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True

Before:
On Error Resume Next
insert:

Code:

StatusBar = "Processing Record: " & i

And before:
Application.ScreenUpdating = True
insert:

Code:

' Clear the Status Bar
Application.StatusBar = False
' Restore original Status Bar status
Application.DisplayStatusBar = SBar

gmayor · #3 08-31-2018, 08:26 PM

You could use http://www.gmayor.com/MergeAndSplit.htm or http://www.gmayor.com/individual_merge_letters.htm

both have progress indicators.

eduzs · #4 08-31-2018, 08:46 PM

Thanks macropod and gmayor,
I think the "problem" is the statement "Destination = wdSendToNewDocument" makes screenupdating = true useless.
I could not see only the main window and the status bar (each new document flashes (appears and disappears) a MS Word window).

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Compatibility of 2 macros in mail merge: Delete table rows + save individual PDFs	Btop	Word VBA	26	03-07-2018 01:45 PM
Mail Merge Word.doc to Individual Pages in PDF	cmpmd2	Word VBA	2	06-16-2016 08:59 PM
Mail Merge individual attachments + email	Lewis.Mills	Mail Merge	2	04-14-2016 10:11 PM
Can you have Individual Text in a Mail Merge	SiberianBreaks21	Mail Merge	1	07-25-2014 05:01 PM
Mail Merge To Individual PDF Files	iamrickdeans	Mail Merge	1	01-15-2014 12:46 AM