Table in Word using Vba

[vnk]

Hi,

Am trying to insert a table with 4 columns and 20 rows into
a word document and also fill data in few columns.

Can some one point me in the right direction to get this
done using VBA. I have tried referring to the help manual, but its no use.

Thanks In Advance
VNK

 

[JustinEzequiel]

why not record a macro then look at the code generated?

Tools-->macros-->record macro

 

[vnk]

Justin,

Thanks, I have tried that before, but code is too
cumbersome.....there should be a nicer and neater way.

Thanks!
vnk

 

[Mossoft]

Try this:
With <word document object>
.Tables.Add Range:=.Parent.Selection.Range, _
NumRows:=<number of rows>, _
NumColumns:=<number of columns>, _
DefaultTableBehavior:=wdWord9TableBehavior, _
AutoFitBehavior:=wdAutoFitFixed
end with

M

 

[vnk]

Mossoft,

Thanks for your input, but at the same time I want to
insert the data. can we specify what to be written in
which column, using VBA.

Thanks once again.
vnk

 

[JustinEzequiel]

Dim oTable As Table
Dim oCell As Cell

Set oTable = ActiveDocument.Tables(1)

Set oCell = oTable.Cell(Row:=2, Column:=2)

oCell.Range.Text = &quot;2x2&quot;