Problem Filling in a Word Document

[hcl-bot]

I am sort of new to domino programing an Lotus Script. I have the following Script for a Word Document I would like to fill. The filling part works fine, but when I try to print all selected documents I get an Automation Object error. I have looked in the forum with no luck. It prints great one at a time.

Sub Initialize

Dim ws As New NotesUIWorkspace

Dim doc As NotesDocument

Dim objWord As Variant



Dim database As NotesDatabase

Dim coll As NotesDocumentCollection



Set database = ws.CurrentDatabase.Database

Set coll = database.UnprocessedDocuments



' At this point the coll should be a collection of the documents you selected in the view



 '  Loop through the documents 







Set objWord = CreateObject("Word.Application")

objWord.Visible = True

Set doc = coll.GetFirstDocument



While Not doc Is Nothing

	

  'Open the document

	

	objWord.Documents.Open "\\villagehall-fs\village-comm\BusLicRenew\AppWFields.Doc"

	

	On Error Goto ERROR_HANDLE

	

  'Put the value in a field

	objWord.ActiveDocument.FormFields("BusName").Result = doc.Bus_Name(0) 

	objWord.ActiveDocument.FormFields("DBA").Result = doc.DBA(0) 

	objWord.ActiveDocument.FormFields("LocalAdd").Result = doc.Whole_Address(0) 

	objWord.ActiveDocument.FormFields("Bus_Add_2").Result = doc.Address_2(0) 

	objWord.ActiveDocument.FormFields("BusType").Result = doc.Notes_New(0) 

	objWord.ActiveDocument.FormFields("BusPh").Result = doc.Phone(0) 

	objWord.ActiveDocument.FormFields("BusFax").Result = doc.Fax(0) 

	objWord.ActiveDocument.FormFields("WebAdd").Result = doc.Web_Site(0) 

	objWord.ActiveDocument.FormFields("EmailAdd").Result = doc.E_Mail(0) 

	objWord.ActiveDocument.FormFields("SalesTaxNo").Result = doc.State_Tax(0) 

	objWord.ActiveDocument.FormFields("TaxListName").Result = doc.Name_Appears(0) 

	objWord.ActiveDocument.FormFields("OwnName").Result = doc.Owner(0) 

	objWord.ActiveDocument.FormFields("OwnAdd").Result = doc.Own_Address(0) 

	objWord.ActiveDocument.FormFields("Own_Add_2").Result = doc.Own_Address_2(0) 

	objWord.ActiveDocument.FormFields("OwnCity").Result = doc.Own_City(0) 

	objWord.ActiveDocument.FormFields("Own_State").Result = doc.Own_State(0) 

	objWord.ActiveDocument.FormFields("Zip").Result = doc.Own_Zip(0) 

	objWord.ActiveDocument.FormFields("OwnPh").Result = doc.Own_Phone(0) 

	objWord.ActiveDocument.FormFields("OwnEmail").Result = doc.Own_email(0) 

	objWord.ActiveDocument.FormFields("Name1").Result = doc.Contact1_Name(0) 

	objWord.ActiveDocument.FormFields("Add1").Result = doc.Contact1_Address(0) 

	objWord.ActiveDocument.FormFields("CityState1").Result = doc.Contact1_City(0) 

	objWord.ActiveDocument.FormFields("Ph1").Result = doc.Contact1_Phone(0) 

	objWord.ActiveDocument.FormFields("Name2").Result = doc.Contact2_Name(0) 

	objWord.ActiveDocument.FormFields("Add2").Result = doc.Contact2_Address(0) 

	objWord.ActiveDocument.FormFields("CityState2").Result = doc.Contact2_City(0) 

	objWord.ActiveDocument.FormFields("Ph2").Result = doc.Contact2_Phone(0) 

	objWord.ActiveDocument.FormFields("Name3").Result = doc.Contact3_Name(0) 

	objWord.ActiveDocument.FormFields("Add3").Result = doc.Contact3_Address(0) 

	objWord.ActiveDocument.FormFields("CityState3").Result = doc.Contact3_City(0) 

	objWord.ActiveDocument.FormFields("Ph3").Result = doc.Contact3_Phone(0) 

	objWord.ActiveDocument.FormFields("AlarmAgency").Result = doc.Alarm_Name(0) 

	objWord.ActiveDocument.FormFields("AgencyAdd").Result = doc.Alarm_Address(0) 

	objWord.ActiveDocument.FormFields("Alarm_City").Result = doc.Alarm_City(0) 

	objWord.ActiveDocument.FormFields("AlarmDesc").Result = doc.Alarm_Location(0) 

	objWord.ActiveDocument.FormFields("MainAgency").Result = doc.Maintenance_Name(0) 

	objWord.ActiveDocument.FormFields("MainAdd").Result = doc.Maintenance_Address(0) 

	objWord.ActiveDocument.FormFields("Main_City").Result = doc.Maintenance_City(0) 

	objWord.ActiveDocument.FormFields("MainPh").Result = doc.Maintenance_Phone(0) 

	

  'Lock the field

	

	

	objWord.ActiveDocument.FormFields("BusName").Enabled = False 	

	objWord.ActiveDocument.FormFields("DBA").Enabled = False  

	objWord.ActiveDocument.FormFields("LocalAdd").Enabled = False  

	objWord.ActiveDocument.FormFields("Address_2").Enabled = False  

	objWord.ActiveDocument.FormFields("BusType").Enabled = False  

	objWord.ActiveDocument.FormFields("BusPh").Enabled = False  

	objWord.ActiveDocument.FormFields("BusFax").Enabled = False 

	objWord.ActiveDocument.FormFields("WebAdd").Enabled = False  

	objWord.ActiveDocument.FormFields("EmailAdd").Enabled = False 

	objWord.ActiveDocument.FormFields("SalesTaxNo").Enabled = False 

	objWord.ActiveDocument.FormFields("TaxListName").Enabled = False  

	objWord.ActiveDocument.FormFields("OwnName").Enabled = False  

	objWord.ActiveDocument.FormFields("OwnAdd").Enabled = False  

	objWord.ActiveDocument.FormFields("Own_Add_2").Enabled = False  

	objWord.ActiveDocument.FormFields("Own_City").Enabled = False  

	objWord.ActiveDocument.FormFields("Own_State").Enabled = False 

	objWord.ActiveDocument.FormFields("Zip").Enabled = False  

	objWord.ActiveDocument.FormFields("OwnPh").Enabled = False  

	objWord.ActiveDocument.FormFields("OwnEmail").Enabled = False  

	objWord.ActiveDocument.FormFields("Name1").Enabled = False  

	objWord.ActiveDocument.FormFields("Add1").Enabled = False  

	objWord.ActiveDocument.FormFields("CityState1").Enabled = False  

	objWord.ActiveDocument.FormFields("Ph1").Enabled = False  

	objWord.ActiveDocument.FormFields("Name2").Enabled = False  

	objWord.ActiveDocument.FormFields("Add2").Enabled = False  

	objWord.ActiveDocument.FormFields("CityState2").Enabled = False  

	objWord.ActiveDocument.FormFields("Ph2").Enabled = False  

	objWord.ActiveDocument.FormFields("Name3").Enabled = False  

	objWord.ActiveDocument.FormFields("Add3").Enabled = False  

	objWord.ActiveDocument.FormFields("CityState3").Enabled = False  

	objWord.ActiveDocument.FormFields("Ph3").Enabled = False  

	objWord.ActiveDocument.FormFields("AlarmAgency").Enabled = False  

	objWord.ActiveDocument.FormFields("AgencyAdd").Enabled = False  

	objWord.ActiveDocument.FormFields("Alarm_City").Enabled = False  

	objWord.ActiveDocument.FormFields("AlarmDesc").Enabled = False  

	objWord.ActiveDocument.FormFields("MainAgency").Enabled = False  

	objWord.ActiveDocument.FormFields("MainAdd").Enabled = False  

	objWord.ActiveDocument.FormFields("Main_City").Enabled = False  

	objWord.ActiveDocument.FormFields("MainPh").Enabled = False  

	

	

' Turn Error Trapping Off		

	

	On Error Goto 0

	

'Print the Document

	Sleep 10

	

	Call objWord.ActiveDocument.PrintOut

	

	Sleep 5	

	

' Close the Word Document

	Call objWord.Quit(0)

	

	Sleep 20

	Set doc = coll.GetNextDocument( doc )

	

Wend



Exit Sub

ERROR_HANDLE:

Resume Next

End Sub

[hcl-bot]

Subject: Problem Filling in a Word Document

Looks like you’ve closed the Word object before you finish looping through the Notes Docs. Try moving the following lines outside your While/Wend loop:

’ Close the Word Document

Call objWord.Quit(0) Sleep 20

Regards,

Carl

[hcl-bot]

Subject: RE: Problem Filling in a Word Document

Thank You I will Try it. I appreciate your help.