Export To Word

Boy am I frustrated.

I have searched the forums for similar problem but I was unable to find it.

I have some buttons that export the data from a form into a Word Document. It generally works but there are some issues.

I have Access 2003 but the people using it only use the runtime version of Access and the environment is Office 2000.

I have copied code from other examples and maybe missing something that is causing the issues.

1. When I export the record it is causing problems with the Normal.dot template. When I try to close Word it keeps asking me that I have modified that template. After pressing Cancel button twice it the save box disappears.
2. When I leave the code Dim objWord As word.Application I get an error message about a compile error User defined Type not defined.
2. When the users try to export a record to the specific word template I
created and a required field is empty an error message is displayed and then closes the application.

Any help will be appreciated. I am a newbie when it comes to code.

Sample code is below.
Private Sub Command1079_Click()
Dim objWord As word.Application
'Start Microsoft Word 2000.
Set objWord = CreateObject("Word.Application")

With objWord
'Make the application visible.
.Visible = False

'path and name of the template your are using.
' objWord.Documents.Add ("U:Asset Strategy and Commercial PropertyCommercial PropertyTaskmasterletterofobjection.dot")
.Documents.Open ("C:Documents and SettingsDadMy DocumentsWorkTaskmasterletterofobjection.dot")

'This is for the bookmark that you created in the template

.ActiveDocument.Bookmarks("bmSubject").Select
Selection.Text = Forms![frmTaskMaster_LeaseManagement]![Subject]
.ActiveDocument.Bookmarks("bmCurrentRent").Select
.Selection.Text = Format(CCur(Forms![frmTaskMaster_LeaseManagement]![CurrentRent]), "Currency")
.ActiveDocument.Bookmarks("bmVendetails").Select
.Selection.Text = Forms![frmTaskMaster_LeaseManagement]![VenDetails]
.ActiveDocument.Bookmarks("bmDateNotice").Select
.Selection.Text = Format(CDate(Forms![frmTaskMaster_LeaseManagement]![RentNotice]), "dd mmmm yyyy")
.ActiveDocument.Bookmarks("bmRentReviewDate").Select
.Selection.Text = Format(CDate(Forms![frmTaskMaster_LeaseManagement]![ReviewDate]), "dd mmmm yyyy")
.ActiveDocument.Bookmarks("bmAskingRent").Select
.Selection.Text = Format(CCur(Forms![frmTaskMaster_LeaseManagement]![AskingRent]), "Currency")

End With

Print_Reconsideration_Err:
'If a field on the form is empty, remove the bookmark text, and
'continue.
If Err.Number = 94 Then
.Selection.Text = ""
Resume Next

End If
objWord.Application.Options.PrintBackground = False
objWord.Application.ActiveDocument.PrintOut

End Sub