Robin,

I didn't have time to test extensively, but try:

Sub ScratchMacro()
Dim oTbl As Table
Dim oCell As Cell
For Each oTbl In ActiveDocument.Tables
oTbl.Columns(2).Sort ExcludeHeader:=True
For Each oCell In oTbl.Columns(2).Cells
oCell.Range.Select
Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
On Error Resume Next
Selection.Sort
On Error GoTo 0
Next
Next
End Sub