Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

6th
Авг

Выгрузить данные из stringGrid в ms word

Posted by Chas under Delphi

Samkoff
я опрашиваю все таблицы программы и все это дело печатаю в ворд.
Эта процедура висит на кнопке.

procedure TForm1.N12Click(Sender: TObject);

begin

//создаем документ

  try

    wdApp := CreateOleObject('Word.Application');

    wdApp.Visible := True;

  except

    ShowMessage('Не удалось запустить MS Word. Действие отменено.');

    Exit;

  end;
    //Делаем видимым и активным окно MS Word.

    wdApp.Visible := true;

    wdApp.Activate;
    //Ссылка на коллекцию документов.

    wdDocs := wdApp.Documents;

    wdDoc := wdDocs.Add;

    wdDoc.Range.InsertAfter('Парсинг 1  ');

    Parsing := 1;

    Analysis.Button1.Click;

    ExpToWord (Analysis.MStringGrid1);

    Analysis.Button2.Click;

    ExpToWord (Analysis.MStringGrid1);

    wdDoc.Range.InsertAfter('Парсинг 2  ');

    Parsing := 2;

    Analysis.Button1.Click;

    ExpToWord (Analysis.MStringGrid1);

    Analysis.Button2.Click;

    ExpToWord (Analysis.MStringGrid1);

....
    wdApp := Unassigned;

    wdDocs := Unassigned;

    wdDoc := Unassigned;

А вот эта процедура рисует в ворде. Все таблицы у меня друг за другом.

procedure ExpToWord (SG: TStringGrid);

var

  wdTable: OLEVariant;

  Row, Col: Integer;

begin

    wdApp.Selection.Font.Size := 12;

    wdApp.Selection.Font.Name  := 'Times New Roman';
    //создание таблицы

    wdTable := wdDoc.Tables.Add(

      Range:=wdDoc.Range.Characters.Last,

      NumRows:=SG.RowCount,

      NumColumns:=SG.ColCount);

      wdDoc.Range.InsertAfter(#13);
  for Row := 1 to SG.RowCount do

    for Col := 1 to SG.ColCount do

        wdTable.Cell(Row, Col).Range.Text := SG.Cells[ Col-1, Row-1 ];
  wdTable.Borders.Enable := true;

  wdApp.ActiveDocument.Tables.Item(1).AutoFitBehavior(wdAutoFitContent);

  wdApp.ActiveDocument.Paragraphs.SpaceAfter := 0;

  wdApp.ActiveDocument.Paragraphs.SpaceBefore := 0;
end;