Панель управления шрифтом в 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
Обычный
Обычный - не обычный!
| 
