Выбор определенной информации в Word и перенос ее в Excel

uses
  ComObj;
 
procedure TForm1.Button1Click(Sender : TObject);
var
  exApp, exBook, exSh : OleVariant;
begin
  //Запуск экземпляра Excel и получение ссылки на интерфейс корневого объекта (Excel.Application).
  exApp := CreateOleObject('Excel.Application');
  //Делаем видимым окно MS Excel. На время отладки или на постоянной основе.
  exApp.Visible := True;
  //Создаём рабочую книгу и получаем ссылку на её интерфейс.
  exBook := exApp.Workbooks.Add;
  //Ссылка на интерфейс первого листа рабочей книги.
  exSh := exBook.Worksheets[1];
  
  //Запись текста в ячейку на третьей строке и втором столбце:
  exSh.Cells[3, 2].Value := 'Этот текст записан в ячейку с адресом: ' + exSh.Cells[3, 2].Address;
  
  //exApp.DisplayAlerts := False; //Отключаем режим предупреждений.
  //try
  //  exBook.SaveAs('Полный путь файла'); //Запись рабочей книги в файл.
  //finally
  //  exApp.DisplayAlerts := True; //Включаем режим предупреждений.
  //end;
  //exBook.Close; //Закрываем рабочую книгу.
  //exApp.Quit;   //Закрываем MS Excel
end;