Hi

I have a VBA module which opens a Word document, creates a single column table then writes data from an Access table to the Word table.

I want all the fields in each record to appear in one cell of the Word table, with each field on a new line within that cell but I can't figure out how to do it.

This is the relevant part of the code, which just overwrites each value with the previous one. How can I modify it to do what I want?

Thanks,

Mike

Code:
i = 0
Do Until rs.EOF
For j = 0 To 10
doc.Tables(1).Columns(1).Cells(i + 1).Range.Text = rs.Fields(j)
Next j
rs.MoveNext
i = i + 1
doc.Tables(1).Columns(1).Cells.Add
Loop