Можно. При этом, думаю, можно обойтись и без сторонних компонентов.
Проще всего создать шаблон будущего документа, в котором текст уже будет размещен на нужных местах. Тогда вашей задачей будет всего лишь заменить его на свой. Инициализируете OleObject (разумеется, Word должен быть установлен!):
var
Word : variant;
<...>
try
Word := CreateOleObject('Word.Application');
except
MessageBox ('Не установлен Microsoft Word!!!', 'Ошибка',
MB_OK);
exit;
end;
word.documents.open ('Путь к документу\Имя.docx'); // открываем ваш файл
word.Visible := false; // спрячем его с экрана
Если делать всё по-честному, то теперь нужно работать с коллекциями Word через Word.Documents.Item
, т.е. к примеру, чтобы обратиться к 1й колонке последней таблицы (если у вас есть в документе таблицы), нужно делать так:
W1.ActiveDocument.Tables.Item(W1.ActiveDocument.Tables.Count).Columns.Item(1).Select;
Сразу дам подсказку: чтобы потом не мучаться с перебором коллекций, один раз сделать эту замену руками при включенной записи макроса (Сервис/Макрос/Начать запись...), тогда вы будете знать, к каким коллекциям обращаться.
Ну, а теперь немного "шулерства".
procedure FindAndReplace (ww:variant; SearchStr, ReplaceStr : string);
begin
ww.Selection.Find.Text := SearchStr;
ww.Selection.Find.Replacement.Text := ReplaceStr;
ww.Selection.Find.Execute (Replace := 2);
end;
<...>
FindAndReplace (Word, '%prepod%', edit1.Text); // просто ищем в документе предопределенный текст и заменяем его.
FindAndReplace (Word, '%bilet%', edit2.Text);
FindAndReplace (Word, '%DATE%', edit3.Text);
В сети много информации по работе с документами Office, рекомендую поизучать, откроете массу полезного.
Ну, а если уж совсем лениво, вот бесплатный компонент VectorSoft Report, позволяющий при небольшом старании создавать на базе готового шаблона нужный вам документ.
SelectContentControlsByTag
) и заменять значения.