ор залу ________________';. Range.InsertAfter (StrKomb);// вводимо текст
// Вставка 4 порожніх абзаців, курсор у позиції останнього -----
Потім активуємо програму Word і робимо все дивись:
WordApplication1.Documents.Item (doc1). Activate ;//актівірум документ Word
WordApplication1.Visible: = true;// Показуємо все на екрані
Переходимо до формування файлу Excel:
// Завантаження існуючого файлу Excel: = 'C: project1 pr1.xls';// відкрити існуючий документ 1
Заповнюємо Лист1 на який виводиться таблиця В«Довідкова таблицяВ» ColRows: = Query1.RecordCount +1 ;//задаємо кількість рядків майбутньої таблиці Word: = Query1.FieldCount;// задаємо кількість стовпців майбутньої таблиці Word
// Зрушення позиції відображення по відношенню до початку координат: = 2;: = 3;
// Імена полів - на лист Excel
for j: = 0 to ColColumns-1 do.Cells.Item [1 + SRows, j + SColumns]. value: = Query1.Fields [j]. DisplayName;
end;
// Авторазмер стовпців по ширині значень яеек (кол-во символів в рядку Length) ---
max: = 0; j: = 0 to ColColumns-1 do
begin.First;// Вибірка - на перший запис
max: = Length (Query1.Fields [j]. AsString); i: = 1 to ColRows do (max <= Length (Query1.Fields [j]. AsString)) then max: = Length (Query1.Fields [j]. AsString);
Query1.Next;// Вибірка - на одну запис вниз;
// порівнюємо ширину не тільки по домену даних а й по заголовку таблиці
if (max <= Length (Query1.Fields [j]. DisplayName)) then max: = Length (Query1.Fields [j]. DisplayName);. Cells.Item [i + SRows, j + SColumns]. ColumnWidth: = max;
end;. First;// Вибірка - на перший запис
// Значення домену - на лист Excel
for i: = 1 to ColRows doj: = 0 to ColColumns-1 doi
end;. Next;// Вибірка - на наступний запис;
// Заголовок таблиці -------------------------------------- ---------------------------
// об'єднуємо комірки -------------------------------------- -------------
// Форматуємо шрифт // Цвет.Cells.Item [SRows-1, SColumns]. Font.Bold: = 1;// стіль.Cells.Item [SRows-1, SColumns]. Font.Italic: = 1...
