Рассмотрим несколько простых процедур, позволяющих редактировать
текст в документе. Нам потребуются возможности: перемещения по тексту
документа, поиска фрагмента текста, копирования и вставки текста, вставки
текста из буфера обмена.
Сначала рассмотрим процедуры, позволяющие перемещаться по тексту до-
кумента. Их нужно вызывать перед выполнением поиска — для позициони-
рования курсора. Для поиска фрагмента в документе, скорее всего, допол-
нительно понадобятся две процедуры — перемещение в начало документа
(для того чтобы начать поиск) и перемещение в конец документа (для до-
бавления новых записей). Процедура StartOfDocument перемещает курсор
в начало документа, а процедура EndOfDocument — в конец документа.
Пример использования этих процедур в среде Delphi выглядит так:
Перемещение курсора в начало и конец документа
procedure TForml.Button8Click(Sender: TObject);
begin
WB.StartOfDocument;
end;
procedure TForml.Button9Click(Sender: TObject);
begin
WB.EndOfDocument;
end;
После того как мы переместили курсор в начало документа, можно начать
поиск фрагмента текста. Поиск текста производит процедура
EditFind(text:string). В случае успешного поиска данная процедура выделяет
искомый фрагмент текста. Для продолжения поиска по документу необхо-
димо повторно вызвать эту процедуру. Чтобы убедиться в том, что искомый
фрагмент существует и был выделен в результате выполнения процедуры
поиска, следует вызвать функцию EditFindFound — она возвращает значе-
ние True в результате успешного поиска. Рассмотрим следующий фрагмент
исходного текста:
Поиск фрагмента текста в документе
procedure TForml.ButtonlOClick(Sender: TObject);
var text_:string;
begin
text_:=InputBox('Введем фрагмент текста для поиска','','');
WB.EditFind(text_);
if WB.EditFindFound
then messagebox(handle,'Фрагмент текста найден!','Внимание!',0)
else messagebox(handle,'Фрагмент текста не найден!','Внимание!',0);
end;
Используя приведенную процедуру, попробуем найти фрагмент текста в до-
кументе. Для этого откроем документ и введем искомое слово (рис. 9.6).
Рис. 9.6. Введем слово для поиска в документе
После того как слово для поиска введено, процедура WB.EditFind(text_) вы-
полнит поиск. В случае успеха она выделит фрагмент текста, а функция
WB.EditFindFound возвратит значение True. Когда заданный текст не най-
ден, то никакой фрагмент не будет выделен, a WB.EditFindFound возвратит
значение False. Если выполнить представленную выше процедуру дважды,
то поиск продолжится с теми же параметрами и будет выделен следующий
фрагмент, удовлетворяющий условиям поиска (рис. 9.7 и 9.8).
После того как курсор перемещен в заданное место документа, туда можно
вставить текст. Если перед этим был выделен фрагмент текста, то вставляе-
мый текст заменит этот фрагмент. Для этой цели используем функцию
WB.insert(text_:string), где text_:string — вставляемый фрагмент текста. Рас-
смотрим следующую процедуру.
Рис. 9.7. Результатом поиска является выделенный фрагмент текста в документе
Рис. 9.8. Повторный поиск выделяет следующий фрагмент текста
Вставка текста в документ
procedure TForml.Button7Click(Sender: TObject);
var text_:string;
begin
text_:=InputBox('Вставляем текст в д о к у м е н т ' , ' ' , ' ' ) ;
WB.insert(text_);
end;
Если комбинировать функции поиска и вставки текста, то можно заполнить
подготовленный заранее шаблон документа. Можно заметить, что методы
объектов Word.Application, в отличие от процедур WordBasic, имеют более
гибкие возможности для редактирования текста. Но все же WordBasic по-
зволяет создать простой документ, пример которого мы рассмотрим в конце
этой главы.
Можно упомянуть еще несколько функций, которые пригодятся любому
программисту Delphi, решившему использовать WordBasic в своей работе.
Это функции выделения всего документа, копирования в буфер обмена,
вставки из буфера обмена в документ и разрыва страницы. Рассмотрим сле-
дующие процедуры.
Процедуры работы с буфером обмена
procedure TForml.Buttonl2Click(Sender: TObject);
begin
WB.EditSelectAll;
WB.EditCopy;
end;
procedure TForml.Buttonl3Click(Sender: TObject);
begin
WB.EditPaste;
end;
Первая процедура выделяет весь текст документа и копирует его в буфер
обмена, вторая — вставляет текст из буфера обмена на место положения
курсора или вместо выделенного текста.
Вставка разрыва страницы
procedure TForml.Buttonl4Click(Sender: TObject);
const wdPageBreak=7;
begin
WB.InsertBreak(Type:=wdPageBreak);
end;
Данная процедура вставляет в текст символ конца страницы, после которо-
го начинается следующая страница.
Мы исследовали основные методы работы с текстом. Далее исследуем воз-
можности WordBasic, которые будем использовать для создания и редакти-
рования таблиц в документе Word. |
Главная
Каталог файлов
