Hello,

I've been tweaking the code below to mail merge from Access 2000 to a
Word doc.

Two issues have come up.
1. The Code does not allow null values in any of the fields. Could
someone suggest what code to use so the function doesn't get hung up
on one or more fields? Please be specific- I know just enough about
vba to be dangerous to myself!

2.Data is merged with a .dot template file. When the data is merged, I
want the data to be merged with a new .doc, so that users don't
accidently save changes to the template. As it is now, the data is
merged into the .dot file. Can anyone help on this?

Thanks in advance,

Lee

Option Compare Database

Public Function CreateWordLetter(strDocPath As String)

  'if no path is passed to function, exit - no further
  'need to do anything
 
  If IsNull(strDocPath) Or strDocPath = "" Then
     Exit Function
  End If

  Dim dbs As Database
  Dim objWord As Object
  Set dbs = CurrentDb
 
  'create reference to Word Object
 
  Set objWord = CreateObject("Word.Application")
 
  'Word Object is created
 
 
  With objWord
      .Visible = True
      .Documents.Open (strDocPath)

      'move to each bookmark, and insert text.
     
     
      .activedocument.Bookmarks("FirstLastName").Select
      .Selection.Text = (CStr(Forms![frmmergeIFSP]![Name]))
           
       .activedocument.Bookmarks("ParentsGuardian").Select
      .Selection.Text =
(CStr(Forms![frmmergeIFSP]![ParentsGuardian]))
             
       .activedocument.Bookmarks("ChildSSN").Select
      .Selection.Text = (CStr(Forms![frmmergeIFSP]![childssn1]))
                       
  End With
'release all objects
 
  Set dbs = Nothing
 

End Function