Linking Access line by line to a Word Document

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have tried this a lotof different ways, but not come up with the right path
yet.
I am trying to make a Word document that will link to a Accuss document. The
Word document is an invoice letter. "Below is listed the things you are
purchasing from us." The Access document is all of the stuff that we sell. I
want to be able to go through the access document and pick different things
form that list the will then be added to the Word document. I thought it
would be a simple linking thing. But everytime I try to do that it links the
whole Access document to the Word document.
If Anyone can help me with this it would be great.
 
Diann said:
I have tried this a lotof different ways, but not come up with the right path
yet.
I am trying to make a Word document that will link to a Accuss document. The
Word document is an invoice letter. "Below is listed the things you are
purchasing from us." The Access document is all of the stuff that we sell. I
want to be able to go through the access document and pick different things
form that list the will then be added to the Word document. I thought it
would be a simple linking thing. But everytime I try to do that it links the
whole Access document to the Word document.
If Anyone can help me with this it would be great.
Click to expand...
Method 1. Create a temp file in Access and have your Access code format
and create each full line
that contains variable information and then do a mail merge with your
document merging the full line
into your invoice letter. this will use a Dot Doc document setup for
mail merge from Access. This
will use a catalog type of document with each line being a record

Method 2. Create a Dot Dot template in Word using Bookmarks for your
variable fields.
Then you can do something like this.

Dim varX As Variant
Dim objWord As Object

' Open Microsoft Word using automation
Set objWord = CreateObject("Word.Application")
objWord.Documents.Open
FileName:="C:\SomeFolder\Some_Predefined_Template.dot"

objWord.Visible = True

varX = DLookup("[MPI_Title]", "MPIMaster", "[MPI_Index] =" & Me!MPINo1)

If objWord.ActiveDocument.Bookmarks.Exists("BookMark1") = True Then
objWord.ActiveDocument.Bookmarks("BookMark1").Range.Text = varX
objWord.ActiveDocument.Bookmarks("BookMark1").Select
End If

objWord.ActiveDocument.SaveAs FileName:="C:\SomeFolder\DocumentName.doc"
objWord.ActiveDocument.CLOSE
objWord.Quit
Set objWord = Nothing

Hope this help.
Ron
 
Back
Top