Ok i have a little problem, i no how to draw a table into a word document from my VB application but i cant seem to get it to draw tables on the fly, i no its somthing silly im doing with the "range" at a guess, hope some one can help me, the following code is just a test but when i get it working ill be able to put it into practace.

Also any help on filling in the table and making the top row merg so that is only has one cell accross the table would be a big help

So it looks kinder like this

|-------------|
|------|------|
|------|------|
|------|------|
|------|------|

Dim oWord As Word.Application
Dim oDoc As Word.Document
Dim oRange As Word.Range


oWord = CreateObject("Word.Application")

oWord.Visible = True

oDoc = oWord.Documents.Add

Loop starts=====

oWord.Selection.Tables.Add(oDoc.Range, 4, 2)


Loop Ends =====

Hi Cadey,

Following is the code which fill a single row in the word template. Before running this example create a template and store it in a proper position (Word template). This template should carry a table with number of rows/columns with proper text (template text). In my example i've used ~First~ and ~Last~ words inside my table(row/cell). I am replacing that value with database value. U have got access to all word utilities thru vb.

I don't think is there any possiblity to create table from vb. Anyway try to do the same and let me know once u have acheived it.

Enjoy coding

Cheers
Prasanna



Dim mobjDoc As Word.Document
Dim con As ADODB.Connection
Dim res As New ADODB.Recordset
Dim strvalue As String
Dim rngRange As Word.Range


Dim objWordApp As Word.Application
mstrReportTemplate = "c:\Test\" & "MyDoc.doc"
Set mobjDoc = GetObject(mstrReportTemplate, "word.document")
mobjDoc.Activate
Documents.Open ("c:\Test\MyDoc.doc")
Documents("MyDoc.doc").Activate
Set con = CreateObject("ADODB.Connection")
con.Open "DSN=staples;UID=real_Dev;PWD=its"
res.CursorType = adOpenForwardOnly
res.ActiveConnection = con
res.Open "select co_tnt from res_site_Addl_inf where site_id='0031AZ'", con, , adLockOptimistic
While Not res.EOF
    strFirstName = res.Fields(0)
    strLastName = res.Fields(1)
    res.MoveNext
Wend
Set rngRange = mobjDoc.Tables(1).Cell(0, 0).Range
rngHeading.Find.Execute FindText:="~First~", ReplaceWith:=strFirstName
Set rngRange = mobjDoc.Tables(1).Cell(0, 1).Range
rngRange.Find.Execute FindText:="~AFTER~", ReplaceWith:=strLastName

....