Цитата:
|
Сообщение от Syslenish
Проблема вот в чем:
1) Как сделать так, чтобы первая строчка этого текста записывалась жирным шрифтом, остальные - обычным;
2) как записать, что "е" в степени?
3) как записать подстрочный текст? (Lф - здесь "ф" должна быть подстрочная)
|
Всё очень просто - записываешь в Word-е макрос с нужными действиями и просто переводишь этот макрос с бейсика на Delphi.
Например:
Код:
with WordApplication1.Selection do
begin
Font.Bold:=1;
TypeText('Жирный текст');
Font.Bold:=0;
TypeText('Обычный текст');
Font.Superscript:=1;
TypeText('Верхний индекс');
Font.Superscript:=0;
TypeText('Обычный текст');
Font.Subscript:=1;
TypeText('Нижний индекс');
Font.Subscript:=0;
TypeText('Обычный текст');
end; Но вообще лучше работать с Word-документом не через Selection и TypeText, а через Range и InsertAfter/InsertBefore, но я сейчас уже и не помню как это делается.
Ещё есть неплохой вариант - сохранить шаблон документа в формате rtf и работать с ним как с текстом.
Цитата:
|
Сообщение от Syslenish
4) у меня при компиляции unit Word_TLB возникает ошибка в procedure TWordDocument.InvokeEvent в
|
А откуда у тебя взялся модуль Word_TLB? С интернета?
В Delphi на вкладке Servers палитры компонентов просто брось на форму компоненты TWordApplication и TWordDocument.