Speed when reading/writing text in cells in a table (MSWord)

Hi All.

I have to read and write text in the cells in a word table, but the way I'm
doing it now is to slow, so I'll appreciate any ideas on how to do it
faster.

Here's how I'm doing the reading/writing:

function GetCellText(Table: OleVariant; Row, Col: Integer): String;
var
  Range: OleVariant;
begin
  Range := Table.Item(1).Cell(Row, Col).Range;
  Range.MoveEnd(wdCharacter, -1);
  Result := Range.Text;
end;

procedure SetCellText(Table: OleVariant; Row, Col: Integer; Text: String);
var
  Range: OleVariant;
begin
  Range := Table.Item(1).Cell(Row, Col).Range;
  Range.Delete ;
  Range.InsertAfter(Text);
end;

and a call could look like this:

Getting text in a cell:

    O := WordObject.Application.ActiveDocument.Tables;
    AList.Values['DoneBy'] := GetCellText(O, 3, 2);

Set the text in a cell:

    O := WordObject.Application.ActiveDocument.Tables;
    SetCellText(O, 1, 3, AList.Values['DoneBy']);

Any ideas??

Regards / Med venlig hilsen
-------------
Remove "NoSpam" when sending mail
kimgreve@"NoSpam"mail.danbbs.dk