Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Invision Power ... 65535
Пример работы с... 65535
Содержание сайт... 65535
Организация зап... 65535
Вызов хранимых ... 65535
Создание отчето... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Модуль Forms 65535
ТЕХНОЛОГИИ ДОСТ... 62974
Имитационное мо... 58319
Реклама
Сейчас на сайте
Гостей: 4
На сайте нет зарегистрированных пользователей

Пользователей: 13,091
новичок: avegraf
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Моделирование системы управления качеством производственного процесса на...
Информационная система - продуктовый магазин на Turbo Pascal (База данны...
Игра Sokoban на Delphi + Блок схемы

Реклама



Подписывайся на YouTube канал о программировании, что бы не пропустить новые видео!

ПОДПИСЫВАЙСЯ на канал о программировании
Создание, выделение и удаление таблиц в документе



Документ Word может содержать таблицы, которые как объекты объедине-
ны в коллекцию Tables. Как вытекает из вышесказанного, обычно эта кол-
лекция принадлежит объекту "документ". Рассмотрим ее основные свойства
и методы.
Свойство Count:integer содержит информацию о количестве таблиц в кол-
лекции. Если в документе нет ни одной таблицы, то Count содержит ноль.
Метод Add добавляет новую таблицу в коллекцию. При создании таблицы
определяются область, где будет создана таблица, и ее основные парамет-
ры — количество столбцов и строк. Хотя коллекция таблиц и принадлежит
документу, тем не менее сама таблица может быть создана на любом объек-
те или месте документа, на котором это возможно. Объект Item(tab) — эле-
мент коллекции и представляет собой таблицу с порядковым номером tab
данной коллекции.
Для демонстрации свойств и методов коллекции Tables создадим новый
документ и в нем создадим таблицу. Используем метод Add. Его специ-
фикация в VB имеет следующий вид: expression.Add(Range, NumRows,
NumColumns), где Range — область, на которой создается таблица, NumRows
и NumColumns — количество строк и столбцов создаваемой таблицы.
Рассмотрим использование метода Add в среде Delphi на примере приве-
денного ниже фрагмента программного текста.
Создание таблицы
procedure TForml.Button2Click(Sender: TObject);
begin
W.ActiveDocument.Tables.Add(Range:=W.ActiveDocument.Range, NumRows:=2,
NumColumns:=3);
end;



Данная процедура создаст таблицу непосредственно в документе. Первый
аргумент метода определяет область, где будет создана таблица, — весь до-
кумент. Следующие аргументы определяют количество строк и столбцов.
Если попробовать вторично выполнить эту процедуру, то будет сгенериро-
вана ошибка (рис. 7.1).


Рис. 7.1. Ошибка при попытке создать таблицу в той области документа,
где она уже есть


Для корректного создания следующей таблицы необходимо в качестве пер-
вого аргумента метода Add указать область, которая свободна и не содержит
таблицу. Для задания этой области можно использовать метод Range, кото-
рый рассматривался ранее, или, например, свойство End объекта Range.
Рассмотрим следующую процедуру, которая создает новую таблицу в доку-
менте. В отличие от предыдущей, для создания новой таблицы она исполь-
зует область в конце документа.

Создание таблицы в конце документа
procedure TForml.Button3Click(Sender: TObject)
var MyRange:variant;
begin
MyRange:=W.ActiveDocument.Range(W.ActiveDocument.Range.End-1,
W.ActiveDocument.Range.End-1);
W.ActiveDocument.Tables.Add(Range:=MyRange, NumRows:=2, NumColumns:=3);
W.ActiveDocument.Range.InsertAfter(' ' ) ;
end;



Данная процедура использует область в конце документа, в которой и соз-
дается новая таблица. За вновь созданной таблицей вставляется пробел, ко-
торый разделяет таблицы между собой. Если разделения нет, то вновь соз-
даваемые таблицы будут добавляться как строки к существующим таблицам.
Когда создано несколько таблиц, мы можем определить их количество. Это
значение содержится в свойстве Count коллекции Tables. Приведенная ниже
процедура выводит список таблиц в компонент ListBox.

Получение списка таблиц в документе
procedure TOKBottomDlg.FormShow(Sender: TObject);
var a_:integer;
begin
ListBoxl.Items.Clear;
for a_:=l to Forml.W.ActiveDocument.Tables.Count do begin
ListBoxl.Items.Add('Таблица - '+inttostr(a_));
end;
end;



В результате выполнения этой процедуры компонент ListBoxl будет содер-
жать список таблиц (рис. 7.2).
Используя объект Item коллекции Tables и порядковый номер таблицы,
можно выделить любую таблицу из всего списка таблиц документа для
дальнейших манипуляций. Для выделения таблицы, которая содержится в
коллекции, используется метод Select объекта Item. Этот объект содержит
все методы, коллекции и объекты, присущие таблице как объекту.
Следующий фрагмент программы демонстрирует использование метода
Select и метода Delete, удаляющего выбранную таблицу.

Выделение и удаление таблицы коллекции Tables
procedure TOKBottomDlg.ButtonlClick(Sender: TObject);
begin
Forml.W.ActiveDocument.Tables.Item(ListBoxl.itemindex+1)..Select;
end;
procedure TOKBottomDlg.Button2Click(Sender: TObject);
begin
Forml.W.ActiveDocument.Tables.Item(ListBoxl.itemindex+1).Delete;
end;



Для демонстрации этих методов предназначено текстовое приложение,
представленное на сопроводительном диске книги. Процесс выполнения
данных процедур может выглядеть примерно так, как показано на рис. 7.2.


Рис. 7.2. Работа со списком таблиц в документе, выделение и удаление
Опубликовал Kest September 15 2009 00:19:46 · 0 Комментариев · 6905 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Нет комментариев.
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
BDEPack
Microsoft Press -...
Стелтинг Стивен, ...
StartMark
Разработка клиент...
PDA версия сайта
Основы программир...
Еext Editor
FilesInfo
Язык программиров...
Черный круг двига...
Java в примерах -...
CoolDev TipsSyste...
Система баннеро...
PHP глазами хакера
Меню проводника в...
Zoom [Исходник на...
Delphi 2005 для W...
LaserTank [Исходн...
Calendar

Топ загрузок
Приложение Клие... 100477
Delphi 7 Enterp... 87853
Converter AMR<-... 20082
GPSS World Stud... 13477
Borland C++Buil... 12053
Borland Delphi ... 8667
Turbo Pascal fo... 7048
Visual Studio 2... 5005
Калькулятор [Ис... 4906
FreeSMS v1.3.1 3545
Случайные статьи
Кольцевые пакетные...
Исходя из сценария...
Игровой автомат So...
Точки останова
согласно требовани...
Расположение загол...
Задача об обезьяне...
Вызов кодов драйвера
Невозможность созд...
определена данная ...
Экспертные системы...
Частично автоматиз...
Описание кодировки...
Сравнение результа...
Часто задаваемые в...
Процедуры кодирова...
Сложение упакованн...
Вариант решения за...
свой технический п...
Ошибки при передач...
Invalid file acces...
Форма Access - про...
Металлический штак...
Диалоговое окно Re...
Недвижимость в Чите
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?