Button to fill Word Document

[garymilam]

I'm trying to create a button to fill a word document with information from access. here is my code, can someone tell me what I have done wrong? When I click the button it gives me an error on the Private Sub fillwordform() and Dim appword as word.application.

Private Sub Command170_Click()
Call fillwordform
End Sub
 
Private Sub fillwordform()
Dim appword As Word.Application
Dim doc As Word.Document
Dim path As String
 
On Error Resume Next
Error.Clear
path = "C:\Users\gary.milam\Desktop\Nom Letters\Nomletter.docx"
Set appword = GetObject(, "word.application")
If Err.Number <> 0 Then
Set appword = New Word.Application
appword.Visible = True
End If
 
Set doc = appword.Documents.Open(path, , True)
With doc
    .formfields(txtLastName).results = Me.LastName
    .formfields(txtFirstName).results = Me.FirstName
    .formfields(txtMiddleInitial).results = Me.MiddleInitial
    .formfields(txtSSN).results = Me.SSN
End With
 
appword.Visible = True
appword.Activate
 
Set doc = Nothing
Set appword = Nothing
 
 
End Sub
 

[garymilam]

So I got it to open the word document, but its not filling in the form fields on the word document. Help anyone.

[jforbes]

First thing you might want to do is to read through this: Early vs Late Binding.

Hopefully, after that reading you will notice you are attempting to open Word with both Early (line 15) and Late (Line 13) bindings. You really will only want to use one of those lines. There are pros and cons to either approach. I personally go with the Early Binding as it enables Intellisense which makes it easier to develop the code.

If you use Early Binding, you need a reference to Word. This is what usually trips up most people. From the VB Editor menu, select Tools and then References. Then scroll down till you see something like Microsoft Word X.0 Object Library and tick the Checkbox.

Getting this nailed down should make it easier to troubleshoot your code.

[ADezii]

A couple of minor changes along with Early Binding will do the trick:

'Automation Code to fill Form Fields in a Microsoft Word Document
'from within an Access Database. Don't forget to
'Set a Reference to the Microsoft Word XX.X Object Library
Dim appword As Word.Application
Dim doc As Word.Document
Dim path As String
 
On Error Resume Next
Error.Clear
 
path = "C:\Test\Test.docx"
 
Set appword = New Word.Application
 
appword.Visible = True
 
Set doc = appword.Documents.Open(FileName:=path, ReadOnly:=False)
 
With doc
  .FormFields("txtLastName").Result = "Smith"
  .FormFields("txtFirstName").Result = "Joseph"
  .FormFields("txtMiddleInitial").Result = "K"
  .FormFields("txtSSN").Result = "999-99-9999"
End With
 
Set doc = Nothing
Set appword = Nothing

[Rabbit]

What about a mail merge?