Export to Word

[jamjarr]

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 Property\Commercial Property\Taskmaster\letterofobjection.dot")
.Documents.Open ("C:\Documents and Settings\Dad\My Documents\Work\Taskmaster\letterofobjection.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

 

[Studentos]

Try replacing "Dim objWord As word.Application" with "Dim objWord As Object"

 

[ansentry]

1) Has the reference been set for Microsoft Object library (Tools /References)

2) end your code with;

objWord.Application.Options.PrintBackground = False
objWord.Application.ActiveDocument.PrintOut
[B]Set objWord = Nothing[/B]

These are just a couple of throughts, no harm in try them.

 

[jamjarr]

fixed it

I forgot to set the References.

Thanks for your help.