Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

procedure AutoFormat(var Format: OleVariant; var ApplyBorders: OleVariant;  

                                   var ApplyShading: OleVariant; var ApplyFont: OleVariant; 

                                   var ApplyColor: OleVariant; var ApplyHeadingRows: OleVariant; 

                                   var ApplyLastRow: OleVariant; var ApplyFirstColumn: OleVariant; 

                                   var ApplyLastColumn: OleVariant; var AutoFit: OleVariant);

Первый параметр представляет из себя собственно константу, задающую стиль, а остальные показывают, будут ли требования нового стиля применяться конкретно к границам, тени, шрифту, цвету, первой строке, последней строке, первому столбцу и последнему столбцу. Последний параметр в списке указывает, надо ли подгонять размер ячеек по их содержимому - лучше самому потом вызвать AutoFit.

Как показала практика, работают только два первых параметра. Все остальные заменяем "пустышками". То есть это скорее будет просто способ изменения стиля границ, но и на том спасибо. Некоторые стили таблиц даны в приложении, полный же список ищите в заголовочном файле. Для примера применим к нашей таблице стиль "Вэб3". Вместо второго параметра ставим вариантную переменную, которой присваиваем wdTableFormatApplyBorders. То есть на практике это выглядит так:

var tformat, tappbrd: OleVariant;

...

tformat:=wdTableFormatWeb3;

tappbrd:=wdTableFormatApplyBorders;

i:=1;

WordDocument1.Tables.Item(i).AutoFormat(tformat, tappbrd, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,

EmptyParam, EmptyParam, EmptyParam);

И еще об одном способе создания таблиц

Людям, интересующимся работой с MS Word, возможно, тоже попадались в интернете компоненты, превращающие в таблицу соответствующим образом отформатированный текст. Вот мы как раз и разберемся, как же они устроены. Здесь нам опять надо вспомнить про объект Range, а именно про имеющийся у него метод ConvertToTable. В заголовочном файле это выглядит так:

function ConvertToTable(var Separator: OleVariant; var NumRows: OleVariant; 

                                   var NumColumns: OleVariant; var InitialColumnWidth: OleVariant;

                                   var Format: OleVariant; var ApplyBorders: OleVariant; 

                                   var ApplyShading: OleVariant; var ApplyFont: OleVariant; 

                                   var ApplyColor: OleVariant; var ApplyHeadingRows: OleVariant; 

                                   var ApplyLastRow: OleVariant; var ApplyFirstColumn: OleVariant; 

                                   var ApplyLastColumn: OleVariant; var AutoFit: OleVariant; 

                                   var AutoFitBehavior: OleVariant; var DefaultTableBehavior: OleVariant)

Здесь опять видим все те же константы применения стиля, что и в автоформате. Только в отличие от него тут они ошибок не вызывают. Правда, есть у меня жуткое подозрение, что они все равно не работают и можем со спокойной совестью поставить вместо них "пустышки" - всех, кроме опять-таки, первых двух параметров "применения изменений". Теперь по порядку. Первый параметр у нас задает символ, которым будут отделяться ячейки одной строки нашей будущей таблицы, второй - число строк таблицы, третий - число столбцов, затем идет ширина столбцов. Следующая группа параметров задает стиль таблицы и особенности его применения, необходимые значения констант есть в таблице "Приложения". Последние три параметра задают подгонку размера ячеек по содержимому, но на самом деле не работают. Так что ставим вместо них EmptyParam. И, наконец, практический пример. Предположим, мы открыли новый документ и занесли в него нужный текст:

Рекомендуем скачать другие рефераты по теме: шпоры на пятках, реферат здания.





Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата