Sorry but am just getting started with Automation and am finding it a little
tricky, I have gone through the Automation book which has helped but am
now a little stuck: -

I have created a letter and attached a header , if I open the letter up in
word it is all ok and it has the header attached.

My problem is when I run the following code it all opens up and does what
I think it should be doing but it changes the header and inserts the first
row into the header so if the header was "pd_surname" it puts in "pd_surname
smith"

Where am I going wrong?

LOCAL cTemplatePath, oDocument, oMergedDocument, lclocation

* Create an instance of Word.
RELEASE ALL LIKE o*
PUBLIC oWord
oWord = CreateObject("Word.Application")
* Make Word visible.
oWord.Visible = .t.
* Open a exiting document
lclocation=RTRIM(v_template_letters.tl_location) && set location for letter
odocument=oword.documents.open(lclocation) && open letter

lcFilter = "WHERE " + v_template_letters.tl_filter && get the filter

SELECT Patient_details.pd_pk, Patient_details.pd_title,;
Patient_details.pd_firstname, Patient_details.pd_surname,;
Patient_details.pd_address, Patient_details.pd_street,;
Patient_details.pd_town, Patient_details.pd_county,;
Patient_details.pd_zip;
FROM op!patient_details;
&lcfilter;
INTO CURSOR Addresslist

* Now create and attach a data source
lcheader=RTRIM(v_template_letters.tl_header) && set location for haeder

DO CreateDataSource WITH oDocument, DBF("addresslist"), (lcheader)
USE IN addresslist
* Perform the mail merge
oDocument.MailMerge.Execute()
oMergedDocument = oWord.ActiveDocument
WITH oMergedDocument
IF .ActiveWindow.WindowState <> wdWindowStateMaximize
* Move it to make it visible - for some reason, it comes up
* way off screen
.ActiveWindow.Left = 0
.ActiveWindow.Top = 0
ENDIF
* Preview it
.Printpreview()
ENDWITH
RETURN

Many thnaks for you help

Paul