Как изменить шрифт в таблице?
Как изменить шрифт в таблице? Попробуем изменить шрифт только в ячейке таблицы. Для этого можно использовать объект Font как свойство ячейки, например: ActiveDocument.Tables.Item(Table).Columns.Item(Column).Cells.Item(Row).Range.font. Есть и другой способ: можно выделить ячейку и работать с объектом Selection.Font. Второй способ выгоден тем, что его можно использовать для изменения шрифта не только в таблице, но и во всех выделенных объектах. Рассмотрим его подробнее. Выделим ячейку таблицы, используя метод Select объекта Cell. В Delphi эта функция будет выглядеть следующим образом:
Row,Column:integer):boolean;
begin
SelectCell:=true;
try
W.ActiveDocument.Tables.Item(Table).Columns.Item
(Column).Cells.Item(Row).Select;
except
SelectCell:=false;
end;
End;
Используем эту функцию для выделения определенной ячейки таблицы. После этого можно приступать к работе со свойством Font объекта Selection. Объект Font аналогичен одноименному объекту в Delphi, но имеет некоторые отличия: цвет шрифта определяется индексом, который может иметь небольшое количество возможных значений, но количество режимов подчеркивания и перечеркивания текста больше, чем для шрифта в Delphi. Так как предполагается, что мы разрабатываем приложения на Delphi для разработки документов в Word, то было бы удобно применить функцию преобразования полей шрифта. Приведу пример такой функции:
ColorIndex:integer):boolean;
begin
FontToEFont:=true;
try
EFont.Name:=font.Name;
if fsBold in font.Style
then EFont.Bold:=True // Жирный
else EFont.Bold:=False; // Тонкий
if fsItalic in font.Style
then EFont.Italic:=True // Наклонный
else EFont.Italic:=False; //
EFont.Size:=font.Size; // Размер
if fsStrikeOut in font.Style
then EFont.Strikethrough:=True // Перечеркнутый
else EFont.Strikethrough:=False; //
if fsUnderline in font.Style
then EFont.Underline:=wdUnderlineSingle // Подчеркивание
else EFont.Underline:=wdUnderlineNone; //
EFont.ColorIndex:=ColorIndex; // Цвет
except
FontToEFont:=false;
end;
End;
Когда объект выделен, можем изменить его шрифт, для этого используем приведенную ниже функцию для объекта Selection:
ColorIndex:integer):boolean;
begin
SetFontSelection:=true;
try
SetFontSelection:=FontToEFont(font,W.Selection.font,ColorIndex);
except
SetFontSelection:=false;
end;
End;
В теле вашей программы замена шрифта будет выглядеть, например, следующим образом:
SelectCell(tab_,2,3); SetFontSelection(Button2.font,5);
Где tab_ - номер таблицы, Button2.font - шрифт кнопки, 5 - индекс цвета.
Отправить комментарий