Delphi

Поиск и замена текста

Методы поиска и замены текста очень важны при использовании шаблонов документов (напомню, что здесь шаблонам документа называется образец документа, заполняемый нужным текстом. Не путать с файлом шаблона .DOT.). В прошлых главах мы рассмотрели, как с помощью поиска и замены в шаблонах документов для Word получить метод быстрой и гибкой подготовки документов. В рабочих книгах Excel также нет смысла отказываться от этой возможности, поэтому сейчас мы ее и рассмотрим.

Поиск текста на листе рабочей книги

Используя представленную выше процедуру, зададим условия поиска (рис. 12.17).

Рис. 12.17. Задание условия поиска

Поиск и замена текста

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

Высота и ширина ячейки

От методов, позволяющих изменять значение ячеек листа рабочей книги Excel, переходим к изучению других свойств и методов основного объекта приложения Excel — ячейки. Начнем с простого — с определения и изменения размеров самой ячейки, связанных с размерами строк и столбцов. Мы определились, что ячейка всегда определяется объектами Range или Cells. Используя свойства ColumnWidth it RowHeight этих объектов, мы имеем возможность изменить ширину и высоту ячейки. Очевидно, что эти изменения повлекут изменения ширины столбца и высоты строки. В качестве примера использования этих свойств рассмотрим процедуры, позволяющие определить и изменить размеры заданной ячейки.

Определение и изменение размера ячейки

Результат выполнения этих процедур приведен на рис. 12.19.

Можно добавить, что если объект Range ассоциируется с областью ячеек, то действие данных процедур повлечет за собой изменение размеров всех ячеек этой области. Для изменения размеров строки (строк), столбца (столбцов) нужно записать новые значения в свойства RowHeight и ColumnWidth объектов Rows.Item(i:integer) и Columns.Item(i:integer) соответственно. Чтобы изменить высоту и ширину всех строк и столбцов ячеек, используйте свойства RowHeight и ColumnWidth коллекций строк и столбцов (Rows и Columns). С учетом этого несколько изменим единственный оператор в процедурах настройки

высоты и ширины ячейки и получим следующий программный текст.

Изменение ширины и высоты ячейки

Результаты выполнения этих и рассмотренных ранее процедур будут полностью идентичными (см. рис, 12.19). Различаются только исходные данные. В первом случае они определяются адресом ячейки, во втором — номером строки и столбца.