Updateable field in a ms word document

[Mike Lewis]

Alastair,

This is certainly possible.

How much do you already know about Word Automation? If I give you a starting point here, will you be able to figure it out? Or do you need an explanation from first principles?

I'll assume for now that you know how to get an object reference to your Word document. Here's how you can get the date out of the table:

* Assume date is in first table in the doc
loTable = loDoc.Tables(1)

* Assume day, month, and year are in row 1, cols 1 - 3
lnDay = loTable.Cells(1,1)
lnMonth = loTable.Cells(1,2)
lnYear = loTable.Cells(1,3)
lcDate = TRANSFORM(DATE(lnYear, lnMonth, lnDay))

* We now have the date. Now it's just a question
* of choosing where we want to put it. Assume
* we'll insert it at start of doc:
loRange = loDoc.Range(1)
loRange.Text = lcDate

Does this help at all? If you need more detail, just shout.

Mike




__________________________________
Mike Lewis (Edinburgh, Scotland)

Visual FoxPro articles, tips, training, consultancy

 

[Mike Lewis]

Alastair,

Sorry, I just noticed you said you wanted to insert the date in a field or text box. I'm not sure about fields, but for a text box, change the second half of my code as follows:

* We now have the date. Now it's just a question
* of choosing where we want to put it. Assume
* we'll insert it in the first text box in the doc.
oRange =  odoc.Shapes(1).TextFrame.TextRange
oRange.InsertAfter(lcDate)

I haven't tested any of this, but I think it should work.

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

Visual FoxPro articles, tips, training, consultancy

 

[AlastairP]

Thanks Mike,
I have done some excel and outlook automation, but not yet with word.
I'll see how I get on.