![]() |
#4
|
||||
|
||||
![]()
This seems to work:
Code:
Sub listIncluded() Dim iLast As Long, iCount As Long With ActiveDocument.MailMerge.DataSource .ActiveRecord = wdLastRecord iLast = .ActiveRecord '' Store index of the last active record for later use .ActiveRecord = wdFirstRecord Do iCount = iCount + 1 Debug.Print .ActiveRecord DoEvents .ActiveRecord = wdNextRecord Loop Until .ActiveRecord = iLast MsgBox "There are " & iCount & " active records out of " & .RecordCount End With End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
Tags |
mail, merge, record |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
zidan3311 | Mail Merge | 3 | 10-04-2017 12:54 PM |
![]() |
catflap | Mail Merge | 1 | 04-13-2017 07:32 AM |
![]() |
RHensley | Mail Merge | 10 | 03-07-2017 08:05 AM |
avoid duplicete record and merge the record with the existed record | hemant.behere | Excel | 0 | 01-10-2012 02:53 AM |
How to count the frequency of data and also tally value from an array of Excel record | KIM SOLIS | Excel | 5 | 09-07-2011 09:01 AM |