> > > > >oWord = Createobject("Word.Application") > oWord.Visible = .T. > > > > oDoc = oWord.Documents.Open(Curdir()+"form_letters\"+pdocument) > oDoc.MailMerge.MainDocumentType = 0 > oDoc.MailMerge.OpenDataSource(lcSourceDoc) > >*!* oDoc.MailMerge.Datasource.FirstRecord = oDoc.MailMerge.Datasource.ActiveRecord >*!* oDoc.MailMerge.Datasource.LastRecord = oDoc.MailMerge.Datasource.ActiveRecord > > > oDoc.Activate && Make it the active foreground app > oWord.ActiveDocument.ActiveWindow.View.ShowFieldCodes = .F. > > >>
oWord = Createobject("Word.Application") oWord.Visible = .T. oDoc = oWord.Documents.Open(Curdir()+"form_letters\"+pdocument) oDoc.MailMerge.MainDocumentType = 0 oDoc.MailMerge.OpenDataSource(lcSourceDoc) oDoc.MailMerge.Datasource.FirstRecord = oDoc.MailMerge.Datasource.ActiveRecord oDoc.MailMerge.Datasource.LastRecord = oDoc.MailMerge.Datasource.ActiveRecord oDoc.MailMerge.EditMainDocument oDoc.MailMerge.Destination = 0 && File oDoc.MailMerge..Execute(.t.) && Merge to new file