[k@Z@k]

для получения таблицы использовал функцию - ConvertToTable;

Код:

uses WordXP;
...
 WApp:=CreateOleObject('Word.Application');
 WApp.selection.start:=11;
 WApp.selection.end:=WApp.ActiveDocument.characters.count;
 WApp.Selection.ConvertToTabla(Separator:='$',NumRows:=10,NumColumns:=10,Format:=wdTableFormatGrid2);

з.ы. создали объект
выделили диапазон
конвертнули его в таблицу, разделителем между данными служит "$"