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