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

made in programmersforum 1

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

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

5th
Авг

Сохранить таблицу из StringGrid в MS Word

Posted by Chas under Delphi

Возникла проблема, решить ее оказался не в силах, возможно ли сформировать документ *.doc/*.docx/*.rtf (на крайний случай) из компонента Tstringgrid?

phomm

var

  W, Table: Variant;

...

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

W.Documents.Add;

W.Selection.Font.Size := 12;

W.Selection.TypeText('');

W.Selection.Font.Bold := true;

W.Selection.TypeText(#13#10'');

W.selection.TypeParagraph;

W.Visible := True;

W.ActiveDocument.Tables.Add(W.ActiveDocument.Range, SG.RowCount, SG.ColCount);

Table := W.ActiveDocument.Tables.Item(1);

Table.Borders.OutsideLineStyle := wdLineStyleSingle;

Table.Borders.InsideLineStyle := wdLineStyleSingle;

for col := 0 to SG.ColCount - 1 do

  for row := 0 to SG.RowCount - 1 do

    Table.Cell(row + 1, col + 1).Range.Text := SG.Cells[Col, row]; // в экселе нумерация ячеек с 1