Hi,

Am working on a mail merge web application which generates documents
and saves them. Being a rookie in Mail Merge and Word Automation, have
to thank MVPs and other Google Groups Users for helping me solve quite
a few problems and I have recently moved my app to prod.

However, the app throws a few erratic errors which am not able to
reproduce in order to fix them. Request help in this regard as I feel
like am hitting against a wall as its now a prod issue.

A couple of errors are such:

1. The message filter indicated that the application is busy.
2. The remote server machine does not exist or is unavailable.

Am using VB 6.0 and Microsoft Word Library 9.0 on Win2K Server. The
following is the code I have. The GenerateDoc function takes an
instance of Word Application object and does the mail merge from a data
source while at the same time putting placeholders into documents for
form text fields. The doFindReplace Function replaces the placeholders
after merging the document document with a data source.

The above stated errors are thrown from the doFindReplace function.
Also, can someone please explain to me as to how WinWord manages
concurrency while its running on a server(invoked through a COM
component) for use in a web application.

Dim objWordApp As Word.Application
Set objWordApp = New Word.Application

Private Function GenerateDoc( ByVal strFileName as String,
ByRef objWordApp As Word.Application,
ByVal strDocToGenPath as String,
ByRef vError As Variant) As Boolean
On Error GoTo ErrHandler

Dim objBaseTemplate As Word.Document
Dim objGenDoc As Word.Document
Dim frmField As FormField
Dim strFieldText() As String
Dim iCount As Integer
Dim blnFormFieldsFlag As Boolean

blnFormFieldsFlag = False

Set objBaseTemplate = objWordApp.Documents.Add(Template:=strFileName,
Visible:=True)

objBaseTemplate.ActiveWindow.Visible = True

objBaseTemplate.MailMerge.OpenDataSource strDataSource

objBaseTemplate.MailMerge.Destination = wdSendToNewDocument

objBaseTemplate.MailMerge.SuppressBlankLines = True

If objBaseTemplate.MailMerge.fields.Count = 0 Then
objBaseTemplate.Protect wdAllowOnlyFormFields, True, strPassword
objBaseTemplate.SaveAs FileName:=strDocToGenPath

objBaseTemplate.Close
Set objBaseTemplate = Nothing
Else

For Each frmField In objBaseTemplate.FormFields
If frmField.Type = wdFieldFormTextInput Then

' Redim array to hold contents of text field.
ReDim Preserve strFieldText(1, iCount + 1)

' Place content and name of field into array.
strFieldText(0, iCount) = frmField.Result
strFieldText(1, iCount) = frmField.Name

' Select the form field.
frmField.Select

' Replace it with placeholder text.
objBaseTemplate.Application.Selection.TypeText "" & strFieldText(1,
iCount) & "PlaceHolder"

' Increment icount
iCount = iCount + 1
blnFormFieldsFlag = True
End If
Next frmField

objBaseTemplate.MailMerge.Execute


If blnFormFieldsFlag = True Then
doFindReplace iCount, frmField, strFieldText(), objGenDoc
End If

objBaseTemplate.Saved = True
objBaseTemplate.Close
Set objBaseTemplate = Nothing

Set objGenDoc = objWordApp.ActiveDocument

objGenDoc.Protect wdAllowOnlyFormFields, True, strPassword
objGenDoc.SaveAs FileName:=strDocToGenPath

objGenDoc.Close
Set objGenDoc = Nothing
End If

GenerateDoc = True
Exit Function
ErrHandler:
LogError strFunction, Err.Number, Err.Description & " - (Doc Id " &
CStr(strFileName) & ") ", Err.source
GenerateDoc = False
Err.Clear

If Not objBaseTemplate Is Nothing Then
objBaseTemplate.Close

Set objBaseTemplate = Nothing
End If

If Not objGenDoc Is Nothing Then
objGenDoc.Close
Set objGenDoc = Nothing
End If
End Function


Private Function doFindReplace(iCount As Integer, frmField As
FormField, fFieldText() As String, ByRef objWordDoc As Word.Document)
As Boolean
On Error GoTo ErrHandler:

Dim intLoop As Integer
Dim strFunction As String
Dim fField As FormField

strFunction = "doFindReplace"

' Go to top of document.
Selection.HomeKey Unit:=wdStory

' Initialize Find.
Selection.Find.ClearFormatting

With Selection.Find
..Forward = True
..Wrap = wdFindContinue
..Format = False
..MatchCase = False
..MatchWholeWord = False
..MatchWildcards = False
..MatchSoundsLike = False
..MatchAllWordForms = False

' Loop form fields count.
For intLoop = 0 To iCount

' Execute the find.
Do While .Execute(FindText:="" & fFieldText(1, intLoop) _
& "PlaceHolder") = True

' Replace the placeholder with the form field.
Set fField = Selection.FormFields.Add _
(Range:=Selection.Range, Type:=wdFieldFormTextInput)

' Restore form field contents and bookmark name.
fField.Result = fFieldText(0, intLoop)
fField.Name = fFieldText(1, intLoop)
Loop

' Go to top of document for next find.
Selection.HomeKey Unit:=wdStory

Next
End With

doFindReplace = True
Exit Function
ErrHandler:
LogError strFunction, Err.Number, Err.Description, Err.source
Err.Clear
doFindReplace = False
End Function

Any help in this regard is highly appreciated. Thanks in advance.

Vimal