Easier to run a macro containing the following commands:

Dim mytable As Table
Dim i As Long
Dim j As Long
Set mytable = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=20,
NumColumns:=20)
For i = 1 To 20
For j = 1 To 20
mytable.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

"Bob S" wrote in message
...
I hit "Send" too soon; there is a slight error in the directions for
"extra credit".

The corrected version is below:

For extra credit, try the following.

Start with your list of 400 numbers, and on some other line type an
asterisk. Select the list of numbers and convert it to a two-column
table. Select and copy the asterisk, select the cells in all but the
first row of the last column in the table, and paste the asterisk.
Convert the table back to text, separating on paragraph marks not tab
characters.

Now look down the list for the next (ignore the 1) non-asterisk number
(3), select the list and convert it to a table with that many columns.
Select the cells in all but the first row of the last column in the
table, and paste the asterisk. Convert the table back to text,
separating on paragraph marks not tab characters.

Do this whole process again for the next non-asterisk number (5), and
keep doing it until the smallest number that is not 1 or an asterisk
is greater than 20.

At this point you have a list of all the prime numbers less than 400,
without typing a single number or doing any arithmetic.

Wish me luck, I am about to hit "Send" again...

Bob S