Создание документов Word

Я обнаружил, что следующий код работает хорошо в связке Delphi -> Word 97 (с использованием поля "Закладки" в Word):

..
implementation
uses OleAuto;
..
var
  V: Variant;
..
  V := 0; // не забудьте инициализировать переменную
..
  ..// другие функции

if V = 0 then
begin
  V := CreateOLEObject('Word.Application');
  V.WordBasic.AppShow;
end;

// данный пример показывает технологию заполнения полей
// некой закладки в "стандартном письме" с помощью запроса,
// выполненного прежде в модуле данных pnm_data (OK,
// надо было бы использовать блок with...!)
V.WordBasic.Fileopen('Имя вашего документа Word');
V.WordBasic.EditBookmark('Заголовок', 0, 0, 0, 1);
V.WordBasic.Insert(Title);
V.WordBasic.EditBookmark('Имя', 0, 0, 0, 1);
V.WordBasic.Insert(FirstName + ' ');
V.WordBasic.EditBookmark('Фамилия', 0, 0, 0, 1);
V.WordBasic.Insert(pnm_data.ContactsQuery1Fam_Name.AsString + ' ');
V.WordBasic.EditBookmark('Адрес1', 0, 0, 0, 1);
V.WordBasic.Insert(pnm_data.ContactsQuery1Address1.AsString + ' ');
V.WordBasic.EditBookmark('Адрес2', 0, 0, 0, 1);
V.WordBasic.Insert(pnm_data.ContactsQuery1Address2.AsString + ' ');
V.WordBasic.EditBookmark('Адрес3', 0, 0, 0, 1);
V.WordBasic.Insert(pnm_data.ContactsQuery1Address3.AsString + ' ');
V.WordBasic.EditBookmark('Заголовок1', 0, 0, 0, 1);
V.WordBasic.Insert(Title);
V.WordBasic.EditBookmark('Фамилия1', 0, 0, 0, 1);
V.WordBasic.Insert(pnm_data.ContactsQuery1Fam_Name.AsString + ' ');

{Вы могли бы также использовать команду V.WordBasic.PrintDefault,
если вы хотите напечатать ваш документ... и множество других команд,
типа сохранения, смены шрифта и т.д.}

//....другое

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 451 • TDictionary Custom Sort 6 486 • Fast Watermark Sources 6 283 • 3D Designer 9 226 • Sik Screen Capture 6 616 • Patch Maker 6 996 • Айболит (remote control) 7 000 • ListBox Drag & Drop 5 870 • Доска для игры Реверси 97 070 • Графические эффекты 7 201 • Рисование по маске 6 502 • Перетаскивание изображений 5 368 • Canvas Drawing 5 742 • Рисование Луны 5 455 • Поворот изображения 4 983 • Рисование стержней 3 536 • Paint on Shape 2 805 • Генератор кроссвордов 3 670 • Головоломка Paletto 2 959 • Теорема Монжа об окружностях 3 763 • Пазл Numbrix 2 481 • Заборы и коммивояжеры 3 166 • Игра HIP 2 133 • Игра Go (Го) 2 068 • Симулятор лифта 2 439 • Программа укладки плитки 2 113 • Генератор лабиринта 2 585 • Проверка числового ввода 2 264 • HEX View 2 592 • Физический маятник 2 202