Filling in Word document with Access values

[mlevit]

Hi,

I've found a tutorial that shows you how to fill in Word documents with values from Access

'Print customer slip for current customer.
Dim appWord As Word.Application
Dim doc As Word.Document
'Avoid error 429, when Word isn't open.
On Error Resume Next
Err.Clear
'Set appWord object variable to running instance of Word.
Set appWord = GetObject(, "Word.Application")
If Err.Number <> 0 Then
'If Word isn't open, create a new instance of Word.
Set appWord = New Word.Application
End If
Set doc = appWord.Documents.Open("C:\BLANK INSTRUCTION_TEMPLATE.docx", , True)
With doc
.FormFields("fldCustomerID").Result = Me!CustomerID
.FormFields("fldCompanyName").Result = Me!CompanyName
.FormFields("fldContactName").Result = Me!ContactName
.FormFields("fldContactTitle").Result = Me!ContactTitle
.FormFields("fldAddress").Result = Me!Address
.FormFields("fldCity").Result = Me!City
.FormFields("fldRegion").Result = Me!Region
.FormFields("fldPostalCode").Result = Me!PostalCode
.FormFields("fldCountry").Result = Me!Country
.FormFields("fldPhone").Result = Me!Phone
.FormFields("fldFax").Result = Me!Fax
.Visible = True
.Activate
End With
Set doc = Nothing
Set appWord = Nothing
Exit Sub
errHandler:
MsgBox Err.Number & ": " & Err.Description

I am using Office 2007 and it doesn't seem to be working. I can see that WINWORD.exe is open in my Task Manager but the actual word document is not launching.

Does anybody know how to modify the above code to make it work with Office 2007.

Thanks,

Marat

[puppydogbuddy]

The bookmark property is the name of the Form Field in Office 2003, but I can't see that same property in Office 2007.

When I add the Form Fields to my Word document, I can set their Title, but I'm not sure if that is their name that I would use in .FormFields("du eDateTem").Resu lt = DateDueToClient .Value.

I know there is a comment on the tutorial: "Hi is the office 2007 version avaliable yet? If so where can i find it please? "

So I don't think I'm the only one having the problem with Office 2007.

I don't have word 2007, but the problem seems to be lack of documentation for word 2007 at this period in time. I looked, but could not find any solid info. Let's see if we can get one form field working.

Try replacing line 15 with lines 15a and 15b, then tell me what happens.

With doc
15. .FormFields("fl dCustomerID").R esult = Me!CustomerID


With doc
15a. .Bookmarks.Add Range:=Selectio n.Range, Name:= "fldCustome rID"

15b. Me!CustomerID = bookmarks("fldC ustomerID").ran ge