How do I fill a Word table from data source?

I have a Word document/form created with Word tables. I need to
electronically fill that form from an external data source before printing.
Can it be done?

Have you considered using mailmerge?

Or the following macro will add a table to a document and populate it with
data from a table in an Access database:

Dim myDataBase As Database

Dim myActiveRecord As Recordset

Dim i As Long

Dim dtable As Table, drow As Row

'Open a database

Set myDataBase = OpenDatabase("c:\Access\Procurement Plan.mdb")

'Access the first record from a particular table

Set myActiveRecord = myDataBase.OpenRecordset("Currencies",
dbOpenForwardOnly)

'Add a table to the document with one row and as many fields as there are in
the database table

Set dtable = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=1,
numcolumns:=myActiveRecord.Fields.Count)

Set drow = dtable.Rows(1)

'Loop through all the records in the table until the end-of-file marker is
reached

Do While Not myActiveRecord.EOF

'Populate the cells in the Word table with the data from the current
record

For i = 1 To myActiveRecord.Fields.Count

drow.Cells(i).Range.Text = myActiveRecord.Fields(i - 1)

Next i

'Add a new row to the Word table and access the next record

Set drow = dtable.Rows.Add

myActiveRecord.MoveNext

Loop

'The last row will be empty, so delete it

drow.Delete

'Then close the database

myActiveRecord.Close

myDataBase.Close

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"BrownKoW" wrote in message
...
I have a Word document/form created with Word tables. I need to
electronically fill that form from an external data source before
printing.
Can it be done?

Can you please tell me if this also can be done with an adp, and based on a
view or stored procedure.
and when i would like to use it in a mailmerge can i use this to fill a
table on every page ?

Thanxs

What's adp?

Please explain in more detail what you are trying to do.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Timo Horn" Timo wrote in message
...
Can you please tell me if this also can be done with an adp, and based on
a
view or stored procedure.
and when i would like to use it in a mailmerge can i use this to fill a
table on every page ?

Thanxs

it s an access project, linked to an sql database, perhaps it helps.

Thanxs

Timo

"Doug Robbins - Word MVP" wrote:

What's adp?

Please explain in more detail what you are trying to do.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Timo Horn" Timo wrote in message
...
Can you please tell me if this also can be done with an adp, and based on
a
view or stored procedure.
and when i would like to use it in a mailmerge can i use this to fill a
table on every page ?

Thanxs

If by a view, you mean an Access Query, that can be used as a datasource for
a mail merge in Word. If you want to use mail merge to display the
information in a table in a Word document, you would use a Directory type
mailmerge main document in which you have a single row table into the cells
of which you insert the merge fields corresponding to the fields in the
Access Query or Table. When you execute that merge to a new document, it
will contain a table with a row for data for every record in the datasource.

The following vba code will create a table in a Word documnet and populate
its cells with data from a table or query in an Access database:

Dim myDataBase As Database

Dim myActiveRecord As Recordset

Dim i As Long

Dim dtable As Table, drow As Row

'Open a database

Set myDataBase = OpenDatabase("c:\Access\Procurement Plan.mdb")

'Access the first record from a particular table

Set myActiveRecord = myDataBase.OpenRecordset("Currencies",
dbOpenForwardOnly)

'Add a table to the document with one row and as many fields as there are in
the database table

Set dtable = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=1,
numcolumns:=myActiveRecord.Fields.Count)

Set drow = dtable.Rows(1)

'Loop through all the records in the table until the end-of-file marker is
reached

Do While Not myActiveRecord.EOF

'Populate the cells in the Word table with the data from the current
record

For i = 1 To myActiveRecord.Fields.Count

drow.Cells(i).Range.Text = myActiveRecord.Fields(i - 1)

Next i

'Add a new row to the Word table and access the next record

Set drow = dtable.Rows.Add

myActiveRecord.MoveNext

Loop

'The last row will be empty, so delete it

drow.Delete

'Then close the database

myActiveRecord.Close

myDataBase.Close

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Timo Horn" wrote in message
...
it s an access project, linked to an sql database, perhaps it helps.

Thanxs

Timo

"Doug Robbins - Word MVP" wrote:

What's adp?

Please explain in more detail what you are trying to do.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Timo Horn" Timo wrote in message
...
Can you please tell me if this also can be done with an adp, and based
on
a
view or stored procedure.
and when i would like to use it in a mailmerge can i use this to fill a
table on every page ?

Thanxs