lcAlias = alias() && Save current alias if any > >lcFreeTableName = "F"+right(sys(2015),7) && Create a temp table name >* Word doesn't like table names that are not in 8.3 format > >&tcSQL into table (lcFreeTableName) && Select recs into a temp table > >lcFreeTable = alias() >lcDefDir = sys(5)+curdir() >* Prepare DSN strings >cDSN = "DSN=FoxPro Files;DBQ="+lcDefDir+";DefaultDir="+lcDefDir+";" >cSourceDB = "" >cSourceType = "" >cOther = "DriverId=536;MaxBufferSize=512;PageTimeout=5;" >cDataSource = dbf(lcFreeTable) >cSQLStatement = "SELECT * FROM "+lcFreeTableName+".dbf" >*.... >PUBLIC oWordDocument >*.... >oWordDocument=createobject("word.basic") && Create word object >WITH oWordDocument >*... > .MailMergeOpenDataSource(cDatasource,,, 1 ,,,,,,,; > cDSN+cSourceDb+cSourceType+cOther, cSQLStatement) > && Open data source - Link to source, fastest AFAIKcetin