[JGOV]

Hi, I think I am in the right place for this question so here goes. I am
automating mail merge using word 2003 object model. My question is, is there
a way to suppress the fillin field prompt? I do not have access to change
the templates and do not have access to the datasource and this process must
be completely without user input. Here is my current code.



//Open Template Document
Dim WordDoc As Word.Document = p_WordApp.Documents.Open(sPath + "\" + sFile)

//Open DataSource Document
WordDoc.MailMerge.OpenDataSource(Name:=sPath + "\Datasource" + sFile +
".csv", ReadOnly:=False, LinkToSource:=False, Connection:="",
SQLStatement:="", SQLStatement1:="")

//Verify DataSource has correct fields per its corresponding template
If VerifyMergeFields(WordDoc) Then

With .MailMerge

..Destination = Word.WdMailMergeDestination.wdSendToNewDocument

..SuppressBlankLines = True

With .DataSource

..FirstRecord = Word.WdMailMergeDefaultRecord.wdDefaultFirstRecord

..LastRecord = Word.WdMailMergeDefaultRecord.wdDefaultLastRecord

End With

..Execute(Pause:=False) -- Prompts Occur Here

End With

//Save and Close merged Document

p_WordApp.ActiveDocument.SaveAs(sPath + "\MergedDoc" + sFile)

p_WordApp.ActiveDocument.Close()

//Close template Document

WordDoc.Close(False, False)

WordDoc = Nothing



//Check for Error Documents since pause was set to False and save/close
them.

For Each oDocument As Word.Document In p_WordApp.Documents

If Not
Directory.Exists(Path.GetDirectoryName(Reflection. Assembly.GetExecutingAssembly.Location) & "\ErrorLog") Then

Directory.CreateDirectory(Path.GetDirectoryName(Re flection.Assembly.GetExecutingAssembly.Location) & "\ErrorLog")

End If

oDocument.SaveAs(Path.GetDirectoryName(Reflection. Assembly.GetExecutingAssembly.Location) & "\ErrorLog\" & sFile & "_" & oDocument.Name & ".Doc")

oDocument.Close()

Next



//Remove unneeded datasource and template

File.Delete(sPath + "\Datasource" + sFile + ".csv")

File.Delete(sPath + "\" + sFile)

End If