When I open a Word document, an AutoOpen Macro automatically connects
to a parameter query in an Access database, prompts the user for a Last
Name, and then executes the merge. Both the original merge template and
the final merged document stay open.

How can I let the user return to the original merge template and rerun
the merge (maybe with a keystroke combination), this time entering a
different Last Name at the prompt?

Thank you. Code below.

Kurt

###

Sub AutoOpen()

'Start a new main document for the mail merge.

With MainDoc.MailMerge

.MainDocumentType = wdCatalog
.OpenDataSource Name:="G:\Work\PM\PM.mdb", _
Connection:= _
"QUERY qryManuscripts", _
SQLStatement:= _
"SELECT * FROM [qryManuscripts]", _
SQLStatement1:="", _
SubType:=wdMergeSubTypeWord2000

End With

MainDoc.MailMerge.Execute

Hi Kurt,

If you press Alt-F8 after returning to the original merge document, you
should be able to select and re-run the AutoOpen macro (unless it's been
hidden).

You could automate the process by adding a MACROBUTTON field to the original
merge document, coded as:
{MACROBUTTON AutoOpen Run Again}
where the field braces (ie '{}') are created as a pair via Ctrl-F9. If you
then format the field's font as hidden text and make sure the 'hidden text'
option is unchecked under Tools|Options|Print, that should complete the
task.

Cheers


wrote in message
oups.com...
When I open a Word document, an AutoOpen Macro automatically connects
to a parameter query in an Access database, prompts the user for a Last
Name, and then executes the merge. Both the original merge template and
the final merged document stay open.

How can I let the user return to the original merge template and rerun
the merge (maybe with a keystroke combination), this time entering a
different Last Name at the prompt?

Thank you. Code below.

Kurt

###

Sub AutoOpen()

'Start a new main document for the mail merge.

With MainDoc.MailMerge

.MainDocumentType = wdCatalog
.OpenDataSource Name:="G:\Work\PM\PM.mdb", _
Connection:= _
"QUERY qryManuscripts", _
SQLStatement:= _
"SELECT * FROM [qryManuscripts]", _
SQLStatement1:="", _
SubType:=wdMergeSubTypeWord2000

End With

MainDoc.MailMerge.Execute