Delphi. Трюки и эффекты

Вывод текста в Microsoft Word

procedure TFormWord.bnSetTextClick(Sender: TObject);

begin

//Процедура записи текста

//Устанавливаем шрифт

Wrd.Selection.Font.Size := 20;

Wrd.Selection.Font.Bold := true;

//Пишем текст

Wrd.Selection.TypeText(\'Технология COM является одной из современных\');

Wrd.Selection.TypeText(\'технологий организации межпроцессного взаимодействия\'#13#10#13#10);

//Задаем новые параметры шрифта

Wrd.Selection.Font.Size := 12;

Wrd.Selection.Font.Bold := false;

Wrd.Selection.Font.Italic := true;

Wrd.Selection.TypeText(\'Подпись: \');

Wrd.Selection.Font.Bold := true;

Wrd.Selection.TypeText(\'Delphi\'#13#10#13#10);

end;