Вторник, 21.11.2017, 09:13
Приветствую Вас Гость | RSS

DELPHI Report

Каталог статей Delphi Report

Главная » Статьи » MS Office (MS Word, MS Excel ) » MS Word

форматирование документа - изменение шрифта
Панель управления шрифтом в Word



Попробуем изменять атрибуты шрифта (Имя, размер, жирный, курсив, подчеркнутый) программным образом.



Добавить, если необходимо, в  модуль MyWord.pas функцию

Function SetFontAttr(FontName:string;Size:integer;Bold,Italic,UnderLine:boolean):boolean;
begin
   W.Selection.Font.Name := FontName;//Имя
   W.Selection.Font.Size:=Size;
   W.Selection.Font.Bold:= Bold;
   W.Selection.Font.Italic:= Italic;
   W.Selection.Font.Underline:= Underline;
end;


Теперь рассмотрим применение:


 CreateWord;
 AddDoc;
 VisibleWord(true);

InsertParagraphAfter;   //Абзац
TypeTextDoc('Заголовок 1 ');
SetFont(wdStyleHeading1);
InsertParagraphAfter; //Абзац
TypeTextDoc('Обычный ');
SetFont(wdStyleNormal);
InsertParagraphAfter;
SetFontAttr('Arial',24,true,true,true);
SetTextToDoc('Обычный - не обычный! ',true);




В результате  в документе  получим следующее:


Заголовок 1

Обычный

 

Обычный - не обычный! 



Категория: MS Word | Добавил: delphi (04.05.2011)
Просмотров: 3545 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Меню сайта
Google
Форма входа
Категории раздела
MS Excel [22]MS Word [18]
Поиск
Друзья сайта
Статистика
Copyright MyCorp © 2017