quote:

<script LANGUAGE=VBScript>
Sub ButtonClick()
on error resume next 
Dim oApp
Dim oDoc
Dim oMergedDoc
  
' Create an instance of Word.    
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
 
sServer = "<%=ServerIP%>" ' 127.0.0.1
sVDir = "<%=VDir%>"
sDataFile = "<%=strMergeFile%>" 
strDataDoc = "http://" & sServer & sVDir & "/netasset/trust/tmp/" & sDataFile
Set oDoc = oApp.Documents.Open(strDataDoc,false,true)
oDoc.Select
oDoc.SaveAs "<%=gstrLocalDocDataFilePath%>" & "<%=strDocName%>" & ".txt"
oDoc.Close False

strTemplateDoc = "http://" & sServer & sVDir & "/netasset/trust/doc/" & "<%=strDocName%>" & ".doc"
Set oDoc = oApp.Documents.Open(strTemplateDoc,false,true)
oDoc.Select
  
With oDoc.MailMerge
   ' Open the saved data source.
'strDataFile = gstrAssetDocFilePath & strDocName & ".txt"
'strDataFile = "<%=gstrAssetDocFilePath%>" & sDataFile
strDataFile = "<%=gstrLocalDocDataFilePath%>" & "<%=strDocName%>" & ".txt"
   .OpenDataSource strDataFile,4 '4 - wdOpenFormatText
   .Destination = 0  ' 0 = wdSendToNewDocument
    
   ' Execute the mail merge.
   .Execute false
End With
       
' Close the mail merge edit document.
oDoc.Close False
' Get the current document.
Set oMergedDoc = oApp.ActiveDocument
' Show Word to the user.
'oApp.Visible = True
  
' Uncomment these lines to save the merged document locally.
'oMergedDoc.SaveAs "C:\test.doc"
'oMergedDoc.Close False
'oApp.Quit False
End Sub
</SCRIPT>