Mail Merge VBA - Runtime Error 4605

[SimonGeoghegan]

Hi All,

I have some VBA code within Microsoft Word that loops through and creates a number of mail merged documents.

When running, I receive a "Run-time error 4605: This command is not available" error message. When I debug the code, is it stopping on the "ActiveDocument.Range.Paste" line below. Once at the debug screen, if I then continue the code (F5) straight away, it works as expected, until the loop comes around to this same section.

    Set Doc = ActiveDocument
        Doc.Range.Copy
        Documents.Add
        ActiveDocument.Range.Paste
        ActiveDocument.SaveAs (strPath & "\" & ReportingMonth & "\" & "Clinical Governance Report - " & ReportingMonth & " - " & Hospital & ".doc")
        ActiveDocument.Close False

I can execute all of my code if I sit and debug & F5 each time it breaks - but I'd prefer not to

Does anyone have any idea as to why the above section of code might be failing initially?

Thanks in advance!
Simon

 

[Micron]

Speaking from Access vba experience, and to a lesser extent, Excel vba, if you Set Doc to be the ActiveDocument you want to do everything thereafter to it using Doc, not ActiveDocument.
If an active object loses the focus then trying to do anything to it by relying on the active object reference (in this case, ActiveDocument), you never know what effect it will have. Not sure if that will fix your problem, but that's where I'd start.

 

[Macropod]

Without access to more of your code, it's impossible to understand why you're doing what you're doing the way you're doing it. For code to run a mailmerge and produce individual output documents, see:
• Send Mailmerge Output to Individual Files; and
• Run a Mailmerge from Excel, Sending the Output to Individual Files,
in the Mailmerge Tips and Tricks page at:
Mailmerge Tips & Tricks
The code in the second link is easily adapted for running from Access, if needed.