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

WordDocument1.Range.InsertAfter('column1');

WordDocument1.Range.InsertAfter(#9);

WordDocument1.Range.InsertAfter('column2');

WordDocument1.Range.InsertAfter(#9);

WordDocument1.Range.InsertAfter('column3');

WordDocument1.Range.InsertAfter(#9);

WordDocument1.Range.InsertAfter('column4');

WordDocument1.Range.InsertAfter(#13);

Такую операцию повторим трижды, и у нас будет заготовка для таблицы на 4 столбца и 3 строки. Будущие столбцы отделяются символами табуляции, а строки - переходами на новую строку. Теперь выделяем объект Range - в данном случае это весь текст документа, и превращаем его в таблицу:

var tsepar, tnumrows, tnumcols, tincolw, tformat,

     tappbrd, tappshd, tappfnt, tappclr, tapphr, tapplr,

     tappfc, tapplc: OleVariant;

...

tsepar:=wdSeparateByTabs;

tnumrows:=3;

tnumcols:=4;

tincolw:=150;

tformat:=wdTableFormatNone;

tappbrd:=wdTableFormatApplyBorders;

tappshd:=wdTableFormatApplyShading;

tappfnt:=wdTableFormatApplyFont;                                                                                                                                                                                       

tappclr:=wdTableFormatApplyColor;

tapphr:=wdTableFormatApplyHeadingRows;

tapplr:=wdTableFormatApplyLastRow;

tappfc:=wdTableFormatApplyFirstColumn;

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



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

Поделитесь этой записью или добавьте в закладки