The code will allow you to pass a template name and a recordset to ONE routine and this will then create you a Word Mail Merge document based upon the selected template. If no template is found then a blank file is created
Now upated to include ALL code required to run ;)
Inputs
Usage :-
Dim iobj_word as cls_wrd_report_manager
Set iobj_word = New cls_wrd_report_manager
rs_data =the recordset to output
s_report_path :=Patha and filename of template document
b_Print := True or Fales (Print or Show)
Call iobj_word.produce_mail_merge(rs_data, s_report_path, b_Print)
Returns
A Boolean value for success or failure