Mail-Merge Selected Records to Separate Files

[shg]

This is a code fragment I wrote to generate separate PDFs for a mail-merge:

Please Login or Register  to view this content.

It works GREAT if all the recipients are included (I was so proud!). If they aren't, though, it ratchets through all the selected recipients (good), then has a run-time error on the Exit Do line (bad).

How do I iterate through just the active records?

Thank you.

[macropod]

I assume you're setting the LastRecord value somewhere, in which case you should be able to use:
If .ActiveRecord = .LastRecord Then Exit Do
When you want to process all records, simply set:
.LastRecord = .RecordCount

[shg]

Thanks for responding, Paul.

Ummm ....

I have random records selected for merge. I don't know how to tell when I've reached the last of the selected records.

[macropod]

So how are you selecting the records? Your code seems to want to process all records regardless.

[shg]

From the UI, I select specific records. I want the code to iterate through those selected records.

Forgive me my naivete, Paul, this is one of the very few times I've tried to automate Word.

For example,

Please Login or Register  to view this content.

[macropod]

Try:

Please Login or Register  to view this content.

[shg]

Please Login or Register  to view this content.

That doesn't work, Paul. There's nothing that binds i to the record being tested for inclusion.

[shg]

Ah:

Please Login or Register  to view this content.

Paul, thank you.

[macropod]

Hmm, I'm not sure what happened there. In my previous testing, having:
.ActiveRecord = wdNextDataSourceRecord
was sufficient. Now it isn't. Using:
.ActiveRecord = i
instead seems to work fine.

[shg]

Here's my final code. Thank you again, Paul.

Please Login or Register  to view this content.

[macropod]

You don't need the lines:
.ViewMailMergeFieldCodes = False
or:
.ViewMailMergeFieldCodes = True
and you've misspelled my name...

[shg]

I corrected the misspelling a moment ago, sorry.

I included those lines (and the DoEvents) so I could see the merge field values as it did the merge.