6857-1 (607648), страница 4

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 4)

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;

tapplc:=wdTableFormatApplyLastColumn;

WordDocument1.Range.ConvertToTable(tsepar, tnumrows, tnumcols, tincolw, tformat,

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

tappfc, tapplc, EmptyParam, EmptyParam, EmptyParam);

В общем-то, мы можем задавать только первые шесть параметров, а все остальные заменить на "пустышки". Единственное, что здесь новенькое, это параметр "разделителя". В данном случае в качестве разделителя будет использоваться символ табуляции. Другие варианты смотрите в последней таблице "Приложения", но мне кажется, особой практической пользы от них нет.
Проделав все это, обнаруживаем, что наш текст превратился в таблицу. Все это несколько напоминает создание таблиц в HTML.

Приложения

Список некоторых констант. Смотрите файл Word2000.pas

Описание Символьное обозначение Шестнадцатеричное Текстуры Некоторые константы текстур - откройте Word2000.pas в "блокноте", введите в диалог поиска "texture", и получите полный список. wdTextureNone $00000000 wdTexture2Pt5Percent $00000019 wdTexture7Pt5Percent $0000004B wdTexture35Percent $0000015E wdTexture62Pt5Percent $00000271 wdTextureSolid $000003E8 wdTextureDarkHorizontal $FFFFFFFF wdTextureCross $FFFFFFF5 Формат таблицы Константы формата таблицы. Необходимы при использовании автоформата и преобразовании текста в таблицу. wdTableFormatNone $00000000 wdTableFormatSimple1 $00000001 wdTableFormatSimple3 $00000003 wdTableFormatClassic1 $00000004 wdTableFormatClassic3 $00000006 wdTableFormatColorful1 $00000008 wdTableFormatColumns1 $0000000B wdTableFormatGrid1 $00000010 wdTableFormatGrid3 $00000012 wdTableFormatList1 $00000018 wdTableFormat3DEffects1 $00000020 wdTableFormat3DEffects2 $00000021 wdTableFormat3DEffects3 $00000022 wdTableFormatContemporary $00000023 wdTableFormatElegant $00000024 wdTableFormatProfessional $00000025 wdTableFormatSubtle1 $00000026 wdTableFormatWeb3 $0000002A Стили таблицы Константы "применения изменений" стиля таблицы. В идеале предполагается, что можно задавать отдельно, изменять ли стиль границ, текста, цвета и т.д. В автоформате работают, мягко выражаясь, невразумительно, все время возникают какие-то непонятные ошибки. wdTableFormatApplyBorders $00000001 wdTableFormatApplyShading $00000002 wdTableFormatApplyFont $00000004 wdTableFormatApplyColor $00000008 wdTableFormatApplyAutoFit $00000010 wdTableFormatApplyHeadingRows $00000020 wdTableFormatApplyLastRow $00000040 wdTableFormatApplyFirstColumn $00000080 wdTableFormatApplyLastColumn $00000100 Разделители Константы разделителей для конвертации текста в таблицу. wdSeparateByParagraphs $00000000 wdSeparateByTabs $00000001 wdSeparateByCommas $00000002 wdSeparateByDefaultListSeparator $00000003

Список литературы

Для подготовки данной работы были использованы материалы с сайта http://vlad2000.h1.ru/

Характеристики

Список файлов курсовой работы