faq703-760, Trouble with reports in word when word is open

[NightZEN]

I have modified the code from faq703-760 to what you see below for my database (in Access 97). It works well, as long as MSWord is closed when you run the code. if it's open, I get the following message:

Word cannot open the existing "[square symbol here]

If I click OK, It creates the document as usual only in a new instance of Word, but when I close Word, it says that I have changed the Normal.dot template and do I want to save my changes!? If I wait at the message and do nothing, I get this error:

Run-time error '429'
ActiveX component can't create object

What I want is to be able to create a new document regardless of Word's state. Thanks for any insights! here's the code:

From a button on my Form:

Private Sub CbtnPrint_Click()
Dim db As DAO.Database
Dim recSubmittal As DAO.Recordset
Dim recSubmittal2 As DAO.Recordset
Dim strSQL As String
Dim strSQL2 As String


' Capture the field whose value will narrow your recordset down
strFCRNum = Me.[TbxFCRNum]



strSQL = "SELECT * FROM QryFCRReport WHERE [FCRNum]= " & strFCRNum & ";"
Set db = CurrentDb()
Set recSubmittal = db.OpenRecordset(strSQL)

strSQL2 = "SELECT * FROM QryFCRReportAttendSub WHERE [FCRNum]= " & strFCRNum & ";"
Set db = CurrentDb()
Set recSubmittal2 = db.OpenRecordset(strSQL2)



' This CreateSubmittal sub is created in the module
CreateSubmittal recSubmittal, recSubmittal2

End Sub




In a module:

Option Compare Database 'Use database order for string comparisons

Option Explicit

' location of the template for ECN BOARD REPORT Email -
Public Const m_strDIR As String = "S:\Transfer\Keith W\Databases Offline\Applications\"
Public Const m_strTEMPLATE As String = "FCRReview.dot"

' sets up objects for use and Public variables to be shared in database -
Private m_objWord As Word.Application
Private m_objDoc As Word.Document
Public strFCRNum As Variant


Public Sub CreateSubmittal(recSubmit As DAO.Recordset, recSubmit2 As DAO.Recordset)

Set m_objWord = New Word.Application
Set m_objDoc = m_objWord.Documents.Add(m_strDIR & m_strTEMPLATE)

m_objWord.Visible = True

InsertTextAtBookmark "BMCustName", recSubmit("CustName&quot
InsertTextAtBookmark "BMReviewDate", recSubmit("ReviewDate&quot
InsertTextAtBookmark "BMCustPlant", recSubmit("CustPlant&quot
InsertTextAtBookmark "BMCustPart", recSubmit("CustPart#&quot
InsertTextAtBookmark "BMReviewLocation", recSubmit("ReviewLocation&quot
InsertTextAtBookmark "BMNumberStations", recSubmit("NumberStations&quot
InsertTextAtBookmark "BMBlankLoadTableHeight", recSubmit("BlankLoadTableHeight&quot
InsertTextAtBookmark "BMExitConveyorHeight", recSubmit("ExitConveyorHeight&quot
InsertTextAtBookmark "BMMatlThickness", recSubmit("MatlThickness&quot
InsertTextAtBookmark "BMClampStroke", recSubmit("ClampStroke&quot
InsertTextAtBookmark "BMLiftStroke", recSubmit("LiftStroke&quot
InsertTextAtBookmark "BMJob", recSubmit("Job#&quot
InsertTextAtBookmark "BMPress", recSubmit("Press&quot
InsertTextAtBookmark "BMPitch", recSubmit("Pitch&quot
InsertTextAtBookmark "BMRailDistance", recSubmit("RailDistance&quot
InsertTextAtBookmark "BMSetsTooling", recSubmit("#SetsTooling&quot


'Generate the table data
InsertSummaryTable recSubmit2


Set m_objDoc = Nothing
Set m_objWord = Nothing


End Sub

Private Sub InsertTextAtBookmark(strBkmk As String, varText As Variant)
' This finds the bookmarks in the Word template to place the data.
m_objDoc.Bookmarks(strBkmk).Select
m_objWord.Selection.Text = varText & ""

End Sub

Private Sub InsertSummaryTable(recR As DAO.Recordset)
' This pulls in the data for a table then highlights the data
' and creates a table in the Word document at a bookmark location
' for each field you want in the column of the table, have tabs
' surround it. Items in quotes are field names from the query/recordset
' If you need to have a blank column, just place vbTab in twice
''On Error GoTo No_Record_Err
Dim strTable As String
Dim objTable As Word.Table

recR.MoveFirst
strTable = ""
While Not recR.EOF
strTable = strTable & recR("Attendee&quot & vbTab & recR("Company&quot & vbTab & recR("Signature&quot & vbCr
recR.MoveNext
Wend

InsertTextAtBookmark "BMTableAttendees", strTable
Set objTable = m_objWord.Selection.ConvertToTable(Separator:=vbTab)

objTable.Select
objTable.Columns(1).Width = InchesToPoints(2.5)
objTable.Columns(2).Width = InchesToPoints(2.5)
objTable.Columns(3).Width = InchesToPoints(0.5)

Set objTable = Nothing
Time_To_Go:
Exit Sub

No_Record_Err:
MsgBox "No Record Error Dude"
GoTo Time_To_Go

End Sub