Exporting Data From Access To a Word Template

[Heather Irvin]

So far I've created a Contact List Database, from there you can click a
button to open up a Company Fax Transmittal Word Template. It is populated
with the info from the Database. This works fine.

Problem is, the script opens up the Template as .dot
If you simply open the template noraml it opens as .doc

here is the script I'm using... any suggestions on how to get the template
to open up correctly (.doc)would be great.

Dim oApp As Object
Dim doc As Object
Dim strDocName As String

Set oApp = CreateObject("Word.Application")
oApp.Visible = True

strDocName = "F:\Data\Headquarters\Information
Technology\Helpdesk\Templates\AC FaxTrans.dot"
Set doc = oApp.Documents.Open(strDocName)

doc.FormFields("Fax_to").Result = Forms!User!Name.Value
doc.FormFields("Fax_Number").Result = Forms!User!Phone.Value

Set oApp = Nothing

Thanks
Heather

 

[Albert D. Kallal]

Try my working example. It allows you to merge "one" record to a word
template.

It also allows you to word enable any of your existing forms by adding a
button with ONE line of code. (so, it is a ideal solution).

Check it out at:
http://www.attcanada.net/~kallal.msn/msaccess/msaccess.html

 

[Cheryl Fischer]

Try:

Set doc = oApp.Documents.Add(strDocName)

 

[Heather Irvin]

Thank you! That works Great!

Try:

Set doc = oApp.Documents.Add(strDocName)

 

[Cheryl Fischer]

You're welcome, Heather. Glad to have helped!