Вынести данные из TstringGrid в MS Word

[Алексей_2012]

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

[Аватар]

Сделай макет-заготовку в doc-формате. Можно или в ресурс засунуть, или внешним файлом Дальше TWordDocument или CreateOLEObject('Word.Application') и выгружай

[Serge_Bliznykov]

Сообщение от Аватар

Дальше TWordDocument или CreateOLEObject('Word.Application') и выгружай

только надо учесть, что данная программа будет работать только на компьютере, на котором установлен MS Word. иначе будет сразу ошибка при попытке создания OLE объекта...
Хотя, безусловно, вариант вполне рабочий и годный! (как и другие - со своими плюсами и минусами! )

И я не вижу больших проблем писать в RTF - во-первых, это текстовый файл (особой структуры, конечно). во-вторых, есть виндовый контрол (в Delphi обёртка над ним это TRichEdit), который поддерживает сохранение/загрузку из rtf-формата (достаточно убогую и кривую, надо признать. Но всё таки поддержку...)
И ещё, для RTF возможно подготовить шаблон с нужным форматированием и потом в Delphi писать в шаблон нужные данные.
Смотри, например, RepoRTF тут или VK_Report - тут

[Алексей_2012]

Ребят, прошу вашей помощи, я физически не успеваю этого сделать, так как на мне висит еще две процедуры, суть в том, чтоб подстроить этот код (он же есть во вложении) под стринггрид моей программы, код нашел в недрах интернета, и не успеваю в нем разобраться, а суть в том, чтобы вывести данные таблицы и tdatetimepicker (с последнем еле справился) в документ ворда. Очень на вас надеюсь, помогите кто как может. Заранее спасибо.

Просто серьезно не успеваю, разъясните что в коде исправить, чтоб в шаблон ворд документа просто добавлялись столбцы грида? Которые не статичны, моя программа создает 4 файла по пути с:/prgfls/смета/**stolbc***, а сохраняет его через tstringlist то есть там список названия столбов есть, и нужно как-то их использовать в виде метки для поиска таких же названий в шаблоне, и заполнения шаблона, помогите пожалуйста, диплом пишу, ничего не успеваю, а это только половина работы, еще надо формулу расчета из столбов делать, но я это сам постараюсь сделать, через парсер, очень на вас надеюсь

[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

Как-то так я делал (дербан рабочего кода с выбросом ненужного конкретно Вам)

[Алексей_2012]

Спасибо, пока нет возможности проверить код, а он просто переносит данные, или вставляет их в шаблонную таблицу doc? Нужен именно второй вариант

[Rin]

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

SG - ваш стринггрид. Это именно то, что вам нужно.

[Алексей_2012]

Спасибо, проверил-все работает, но код вырисовывает только таблицу, а надо чтоб как по шаблону, так как программа то создает таблицу, но стринггрид объединять ячейки не умеет, да и потом смет этих много, одна из них во вложениях

[Алексей_2012]

Кто-нибудь сможет разобраться в коде из прикрепленных файлов? Смета ведь может быть любой размерности (я про таблицу) в шаблон будут вносится названия столбцов, потому что на выходе должен получаться уже готовый документ, который можно выпускать на печать, на подобии вложения из поста 8, ребят, помогайте кто чем может, а то разрываюсь между несколькими программами, а диплом не за горами. Я не прошу написать за меня, я прошу помочь разобраться, в интернете половину ресурсов перевернул

[Serge_Bliznykov]

Сообщение от Алексей_2012

Кто-нибудь сможет разобраться в коде из прикрепленных файлов? Смета ведь может быть любой размерности (я про таблицу) в шаблон будут вносится названия столбцов, потому что на выходе должен получаться уже готовый документ, который можно выпускать на печать, на подобии вложения из поста 8, ребят, помогайте кто чем может, а то разрываюсь между несколькими программами, а диплом не за горами. Я не прошу написать за меня, я прошу помочь разобраться, в интернете половину ресурсов перевернул

Советы из пост #2 и мои из #3 чем-то не устроили?..


p.s. Если у Вас банально нет времени, то почему Вы считаете, что у кого-то это время лишнее?!