On 19 Apr 2004 07:40:04 -0700,
leemodeler@yahoo.com (Lee Rouse) wrote:
[color=blue]
>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![/color]
Asked and answered in another thread. Use the Nz() function.
[color=blue]
>
>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)[/color]
You want this line to be:
..Documents.Add Template:=strDocPath
mike
[color=blue]
>
> 'move to each bookmark, and insert text.
>
>
> .activedocument.Bookmarks("FirstLastName").Select
> .Selection.Text = (CStr(Forms![frmmergeIFSP]![Name]))
>
> .activedocument.Bookmarks("ParentsGuardian").Selec t
> .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[/color]
