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"); p> Форматування виділеного тексту відбувається аналогічно Range, наприклад:
WordApplication1.Selection.Font.Bold: = 1;
WordApplication1.Selection.Font.Size: = 16;
WordApplication1.Selection.Font.Color: = clGreen; p> Для вирівнювання простіше скористатися компонентом WordParagraphFormat. Спочатку тільки потрібно "підключити" його до виділеного фрагмента тексту:
WordParagraphFormat1.ConnectTo (WordApplication1.Selection.ParagraphFormat);
WordParagraphFormat1.Alignment: = wdAlignParagraphCenter; p> Значення його властивості Alignment може приймати значення wdAlignParagraphCenter, wdAlignParagraphLeft, wdAlignParagraphRight, сенс яких очевидний. Є й методи Cut, Copy і Paste, які в поясненнях навряд чи потребують:
WordApplication1.Selection.Cut;
WordApplication1.Selection.Copy;
WordApplication1.Selection.Paste;
Прибираємо виділення за допомогою методу Collapse. При цьому необхідно вказати, в яку сторону зміститься курсор, чи буде він до раніше виділеного фрагмента або після:
var vcol: OleVariant;
...
vcol: = wdCollapseStart;
WordApplication1.Selection.Collapse (vcol); p> При цьому виділення пропаде, а курсор займе позицію перед фрагментом тексту. Якщо присвоїти змінній значення wdCollapseEnd, то курсор переміститься тому. Можна просто поставити в дужках "пустушку":
WordApplication1.Selection.Collapse (EmptyParam); p> Тоді згортання виділення проводиться за замовчуванням, до початку виділеного тексту. h2> Малюнки
Логічно було б припустити, що малюнки документа будуть представляти із себе колекцію, аналогічну таблицями, і ми, звернувшись до конкретної картинці, зможемо міняти її властивості - обтікання, розмір і т.д. Однак нічого подібного в WordDocument не виявляється. Тому можливості управління вбудованими в документ зображеннями сильно обмежені. p> Найпростіший метод вставити в документ малюнок - по згаданих причин він же і єдиний - Скопіювати його в Word з буфера обміну. Припустимо, малюнок у нас знаходиться в компоненті DBImage. Спочатку потрібно загнати його в буфер обміну:
Clipboard.Assign (DBImage1.Picture); p> Тепер для його вставки слід скористатися методом Paste об'єктів Range а...
