Use a macro containing the following code:

Dim mtable As Table, i As Long, j As Long
Set mtable = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=20,
NumColumns:=20)
For i = 1 To mtable.Rows.Count
For j = 1 To mtable.Columns.Count
mtable.Cell(i, j).Range.Text = i * j
Next j
Next i

--
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

"lori hancock" wrote in message
. ..
Did you find out how???

Huh!!!!!

"Doug Robbins - Word MVP" wrote:

Use a macro containing the following code:

Dim mtable As Table, i As Long, j As Long
Set mtable = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=20,
NumColumns:=20)
For i = 1 To mtable.Rows.Count
For j = 1 To mtable.Columns.Count
mtable.Cell(i, j).Range.Text = i * j
Next j
Next i

--
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

"lori hancock" wrote in message
. ..
Did you find out how???

See http://www.gmayor.com/installing_macro.htm

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

"Rippka" wrote in message
news
Huh!!!!!

"Doug Robbins - Word MVP" wrote:

Use a macro containing the following code:

Dim mtable As Table, i As Long, j As Long
Set mtable = ActiveDocument.Tables.Add(Range:=Selection.Range,
NumRows:=20,
NumColumns:=20)
For i = 1 To mtable.Rows.Count
For j = 1 To mtable.Columns.Count
mtable.Cell(i, j).Range.Text = i * j
Next j
Next i

--
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

"lori hancock" wrote in message
. ..
Did you find out how???