Экспорт текста в Word из Delphi в текстовый шаблон Word, с элементом построения таблиц, используя маркеры

Писал я как то на сторону программу, связанную с кучей расчетов и генерировал это всё потом в отчет. Выводил в Word довольно большое количество листов. И как это обычно бывает, что то у заказчика там менялось и стабильно раз в месяц постоянно просили поменять то форму выводимых таблиц, то где то текст, то еще что.

И тут я впервые задумался о конструкторе таблиц. Точнее о выводе таблиц и простого текста в WORD по маркерам в редактируемом шаблоне.

В общем хочу поделиться крохотным примером на эту тему. Показать как можно выводить столбцы таблицы по маркерам, выводить текст в основном документе и колонитулах.

Чем хорош этот метод – в шаблоне (рыбе) документа можно сразу указать размер, цвет, стиль текста и таблицы, и не париться программно. При этом шаблон может поправить сам пользователь, зная назначение маркера.

Накидываю в WORD`e шаблон следующего содержания

Маркеры я заключил в сиволы '%', программа будет их искать и заменять на нужный нам текст. Сохраняю его и ложу рядом с будущим исполняемым фалом программы. Что то типа «отчета за смену», идиотично, но что в голову ни чего не лезет, но суть не в этом.

В итоге должно получиться как то так:

Всю работу с WORD я использовал с помощью WordDocument и WordApplication со вкладки Server. Я использовал бородатый Delphi 7. В XE, если кто не найдет, это вкладка по умолчанию отключена, ей просто надо включить.

Для наглядности покажу, что я накидал на форму Скрин формы:

StrinGrid, Edit`ы, Label`ы к ним, и SpinEdit для регулирования количества строк в таблицы В общем то все эти заполненные поля будем передавать в Word.

Приведу код кнопки, которая соединяет с Word и производит с ним работу.

Спойлер procedure TForm1.BitBtn1Click(Sender: TObject); const // массивные маркеры marker: array[1..5] of string[15] = ('%п/п%', '%Опер%', '%затрат%', '%слж%', '%прбл%'); var FTrue, Ffalse, Template, NewTemplate, ItemIndex, T, D, DD, Replese_T, Find_T: OleVariant; Tbl, L, col, Tablwdline, con: OleVariant; i, ii, j: integer; TExtend: OleVariant;

begin Memo1.Clear; Memo1.Lines.Add('Соеденение с Word. '); Application.ProcessMessages; try WA1.Connect; WA1.Visible := False; Template := EmptyParam; NewTemplate := False; FTrue := true; Ffalse := false;

except ShowMessage('Не удалось соедениться с WORD!'); Memo1.Lines.Add('Не удалось соедениться с WORD!' ); Application.ProcessMessages; exit; end;

Memo1.Lines.Add('Соеденение с документом Word. '); Application.ProcessMessages;

// Добовляем документ из имеющего со статусом несохраненого нового документа

try T := ExtractFilePath(Application.ExeName)+'\document.docx';;

ItemIndex := WA1.Documents.Add(T, NewTemplate, NewTemplate, Template);

Memo1.Lines.Add('Не удалось соедениться с шаблоном WORD! (document.docx) Проверьте путь расположения файла.' ); Application.ProcessMessages; ShowMessage('Не удалось соедениться с шаблоном WORD! (document.docx) Проверьте путь расположения файла.'); WD1.Application.Selection.EndOf(Template, Template); WA1.Application.WindowState := wdWindowStateMaximize; WA1.Application.ScreenUpdating := true; WA1.Application.ScreenRefresh; WA1.Visible := true; WA1.Disconnect; WD1.Disconnect; exit; end;

try //Количество таблиц в документе и количество сток и слобцов col := WA1.ActiveDocument.Tables.Count;

for j := 1 to col do begin Memo1.Lines.Add('Присоеденяемся к таблице '+Inttostr( ); Application.ProcessMessages;

tbl := WA1.ActiveDocument.Tables.Item(j); //присоеденяемся к таблице

//ДОБАВЛЕНИЕ СТРОК Tbl.Select;

for ii := 1 to Length(marker) do begin Find_T := marker[ii]; // текст который меняем D := wdFindStop; // найти один раз DD := wdReplaceNone; // замена один раз Replese_T := ''; // заменить на

WA1.Selection.Find.Execute(Find_T, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, D, EmptyParam, Replese_T, DD, EmptyParam, EmptyParam, EmptyParam, EmptyParam); if WA1.Selection.Text = marker[ii] then begin L := Stringgrid1.RowCount - 2; // количество вставляемых строк; try WD1.Application.Selection.SelectRow; WD1.Application.Selection.Borders.OutsideLineWidth := wdLineWidth050pt; except Memo1.Lines.Add('Конфликт оформления линий рамки!'); Application.ProcessMessages; // ShowMessage('Конфликт оформления линий рамки!'); end; if L > 1 then WA1.Selection.InsertRowsBelow(L) else L := 0;

try Tablwdline := wdRow; con := L; TExtend := wdMove; WD1.Application.Selection.EndOf(Tablwdline, TExtend); Tablwdline := wdline; con := L; TExtend := wdMove; WD1.Application.Selection.MoveUP(Tablwdline, con, TExtend); WD1.Application.Selection.SelectRow; TExtend := wdExtend; WD1.Application.Selection.MoveDown(Tablwdline, con, TExtend); // на строки ниже;> WD1.Application.Selection.Borders.OutsideLineWidth := wdLineWidth150pt; except Memo1.Lines.Add('Конфликт оформления линий рамки!'); Application.ProcessMessages; ShowMessage('Конфликт оформления линий рамки!'); end;

//ЗАМЕНА И ЗАПОНЕНИЕ

for ii := 1 to Length(marker) do begin Memo1.Lines.Add('Ищем маркеры '+ marker[ii]+' в таблице ' ); Application.ProcessMessages;

Tbl.Select; Find_T := marker[ii]; // текст который меняем D := wdFindStop; // найти один раз DD := wdReplaceNone; // замена один раз Replese_T := ''; // заменить на

if WA1.Selection.Text = '%затрат%' then begin for i := 1 to Stringgrid1.RowCount - 1 do begin WD1.Application.Selection.TypeText(Stringgrid1.Cells[1, i]); Tablwdline := wdline; con := 1; WD1.Application.Selection.MoveDown(Tablwdline, con, EmptyParam); // на строку ниже; end; end;

if WA1.Selection.Text = '%слж%' then begin for i := 1 to Stringgrid1.RowCount - 1 do begin WD1.Application.Selection.TypeText(Stringgrid1.Cells[2, i]); Tablwdline := wdline; con := 1; WD1.Application.Selection.MoveDown(Tablwdline, con, EmptyParam); // на строку ниже; end; end;

if WA1.Selection.Text = '%п/п%' then begin for i := 1 to Stringgrid1.RowCount - 1 do begin WD1.Application.Selection.TypeText(IntToStr(i)); Tablwdline := wdline; con := 1; WD1.Application.Selection.MoveDown(Tablwdline, con, EmptyParam); // на строку ниже; end; end;

if WA1.Selection.Text = '%прбл%' then begin for i := 1 to Stringgrid1.RowCount - 1 do begin WD1.Application.Selection.TypeText(Stringgrid1.Cells[3, i]); Tablwdline := wdline; con := 1; WD1.Application.Selection.MoveDown(Tablwdline, con, EmptyParam); // на строку ниже; end; end;

Tbl.Select; Find_T := '%объед%'; // текст который меняем D := wdFindStop; // найти один раз DD := wdReplaceNone; // замена один раз Replese_T := ''; // заменить на