Создание нескольких таблиц в Word - VBA

Формулировка задачи:

Всем привет. Пишу на Delphi, но вопрос скорее по VBA, если я не прав, направьте меня по верному пути. И так, есть код, создающий таблицу:

                    Листинг программы
                
 
                        
                          
                    
WordApp := CreateOleObject('Word.Application');
  WordApp.Documents.Add;
 
  WordApp.ActiveDocument.Tables.Add(WordApp.ActiveDocument.Range,
  StringGrid1.RowCount, StringGrid1.ColCount);
 
  table := WordApp.ActiveDocument.Tables.Item(1);
  table.Style := 'Сетка таблицы';
 
  for i := 1 to StringGrid1.RowCount do
  begin
    for j := 1 to StringGrid1.ColCount do
    begin
     table.Cell(i, j).Range.Text := StringGrid1.Cells[j - 1, i - 1];
    end;
  end;

Как мне ниже этой таблицы вставить ещё одну???????????? Огромное спасибо за ответ

Решение задачи: «Создание нескольких таблиц в Word»

textual
                            Листинг программы 
                        
    WordApp.Selection.EndKey(Unit:=6) ; ' // ' wdStory=6
    WordApp.Selection.TypeParagraph;
   WordApp.ActiveDocument.Tables.Add (WordApp.Selection.Range, 
   StringGrid1.RowCount, StringGrid1.ColCount);
   table := WordApp.ActiveDocument.Tables.Item(2);