Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

WordDocument1.Range(a,b).Paste;

С помощью Range можем найти в документе нужную строку. Пусть в тексте содержится слово "picture". Например, нам на его место надо будет вставить рисунок.

var a, b, vstart, vend: OleVariant;

     j, ilengy: Integer;

...

ilengy:=Length(WordDocument1.Range.Text);

for j:=0 to ilengy-8 do begin

 a:=j;

 b:=j+7;

 if WordDocument1.Range(a,b).Text='picture' then begin

  vstart:=j;

  vend:=j+7;

 end;

end;

WordDocument1.Range(vstart,vend).Select;

Такая процедура находит и выделяет нужный кусок текста.

Теперь про Selection, представляющий из себя выделенный фрагмент документа. Если выделения нет, это текущая позиция курсора в документе. С его помощью можем вставить что-либо на место выделенного фрагмента, сделать выравнивание, изменить шрифт. Он также имеет методы InsertAfter() и InsertBefore():

WordApplication1.Selection.InsertAfter("text1");

WordApplication1.Selection.InsertBefore("text2");

Форматирование выделенного текста происходит аналогично Range, например:

WordApplication1.Selection.Font.Bold:=1;

WordApplication1.Selection.Font.Size:=16;

WordApplication1.Selection.Font.Color:=clGreen;

Для выравнивания проще воспользоваться компонентом WordParagraphFormat. Сначала только нужно "подключить" его к выделенному фрагменту текста:

WordParagraphFormat1.ConnectTo(WordApplication1.Selection.ParagraphFormat);

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



Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

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