View Single Post
  #2   Report Post  
Posted to microsoft.public.word.mailmerge.fields
Peter Jamieson Peter Jamieson is offline
external usenet poster
 
Posts: 4,582
Default Merging in Word 2007

I don't know of a simple way to turn this back on - it can be done,
though not particularly well, using VBA and Word's MailMerge Events, but
I suspect for most people that is a complication they could do without.

If you want to have a look at how this might work (i.e. this message
doesn't tell you everything you'd need to do in practice) you need to:

a. create a VBA class module. Let's say it is called Class1.

Insert the following code:
'----------------
Public WithEvents app As Word.Application

Private Sub app_MailMergeBeforeRecordMerge(ByVal Doc As Document, _
Cancel As Boolean)
Doc.Application.StatusBar = _
"Merging record " & _
Doc.MailMerge.DataSource.ActiveRecord

End Sub
'----------------

b. In an ordinary module (i.e. not a Class Module), put the following code

'----------------
Dim x As Class1

Sub ShowMergeRecordCounter()
Set x = New Class1
Set x.app = Word.Application
End Sub

Sub UnShowMergeRecordCounter()
Set x = Nothing
End Sub
'----------------

c. run ShowMergeRecordCounter to switch on application-level event
handling.
d. do your merge. Notice that the status bar display is constantly
replaced by the "standard" display
e. run UnShowMergeRecordCounter to switch off application-level event
handling.


Peter Jamieson

http://tips.pjmsn.me.uk

On 03/11/2009 16:00, SSwan wrote:
Hello. In all versions of Word prior to 2007, when merging to printer, it
says 'Word is merging recordnumber'. This I find is very handy when
merging batches or a big job. Word 2007 however does not give this indication
when merging. Is there an option that is not on by default to enable this?

Thanks.