This function (called transposition) is provided by Excel, so
Microsoft decided it wasn't needed within Word. Here are the steps:

- Copy the table from Word to the clipboard and paste it into a blank
Excel worksheet.

- In Excel, copy the table again.

- Move the cursor to a cell in an empty area of the worksheet.

- On the toolbar, click the down arrow next to the Paste button and
select Transpose. The swapped table will be pasted in, with its top
left cell at the cursor.

- Copy the transposed table from Excel and paste it into Word. Delete
the old table. (Don't try to paste the transposed table into the old
table; you'll get a mess.)

If this is something you do often, it would be possible to program a
macro to do it in one step.

--
Regards,
Jay Freedman
Microsoft Word MVP        FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.

One day when in re-inventing the wheel mode, I created

' Transposer Macro
' Macro creaeted 18/01/1999 by Doug Robbins
' to transpose rows and columns in a table
Dim NumCols as Long, NumRows as Long
NumCols = ActiveDocument.Tables(1).Columns.Count
NumRows = ActiveDocument.Tables(1).Rows.Count
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=NumCols,
NumColumns:= _
       NumRows
RowCounter = 0
While RowCounter < NumRows
   ColCounter = 0
   While ColCounter < NumCols
       CellText = ActiveDocument.Tables(1).Cell(RowCounter + 1, ColCounter
+ 1).Range.Text
       CellText = Left(CellText, Len(CellText) - 2)
       ActiveDocument.Tables(2).Cell(ColCounter + 1, RowCounter +
1).Range.InsertBefore CellText
       ColCounter = ColCounter + 1
   Wend
   RowCounter = RowCounter + 1
Wend