ight: = DBImage1.Height * 1.5;
WordDocument1.Frames.Item (i). Width: = DBImage1.Width * 1.5; p> При цьому наша картинка в півтора рази пропорційно розтягнеться. Точно також можна і зменшити, але ділити, як і множити, слід на одне число. Розтягувати довжину і ширину по-різному у мене особисто не виходило. Задавати розмір знову-таки треба ще до вставки малюнка. Ну і, нарешті, видалення рамки:
WordDocument1.Frames.Item (i). Delete; p> Списки p> Списки в документі утворюють колекцію Lists, до окремого списку звертаємося WordDocument1.Lists.Item (i), де i ціле число від 1 до WordDocument1.Lists.Count ... на цьому все. Немає методів, що дозволяють не те що створити новий список, а навіть додати пункт до вже існуючого. Нічого страшного, справжні герої завжди йдуть в обхід :)) Зараз ми все ж проробимо і те, і інше. Все що нам знадобиться - властивість Range окремого списку, то є його текст без поділу на пункти, а також можливість його виділити:
WordDocument1.Lists.Item (i). Range.Select;
Для цього в будь-якому випадку буде потрібно заготовка. Неважливо, вставлена ​​вона до загального шаблонний документ або зберігається в окремому файлі. Заготівлю робимо так: вибираємо в меню Формат/Список, і зберігаємо, якщо це окремий шаблон списку. У нас з'являється порожній список без тексту з одним маркером. Далі згадуємо, як ми робили списки вручну - писали текст, натискали "Enter", з'являвся новий елемент списку. Тепер те ж саме, тільки програмно. Припустимо, у нас вже відкритий документ із заготівлею, і ми хочемо внести до списку пункти "Item 1 "і" Item 2 ":
var i: Integer;
vcol: OleVariant;
...
i: = 1;
vcol: = wdCollapseEnd;
WordDocument1.Lists.Item (i). Range.Select;
WordApplication1.Selection.Collapse (vcol);
WordApplication1.Selection.InsertAfter ('Item 1 ');
WordDocument1.Lists.Item (i). Range.Select;
WordApplication1.Selection.Collapse (vcol);
WordApplication1.Selection.InsertAfter (# 13);
WordDocument1.Lists.Item (i). Range.Select;
WordApplication1.Selection.Collapse (vcol);
WordApplication1.Selection.InsertAfter ('Item 2 ');
WordDocument1.Lists.Items (i). Range.Select;
WordApplication1.Selection.Copy; p> Те Тобто ми вставляємо в документ текст першого пункту списку, він потрапляє на своє місце. Потім посилаємо в Word символ переходу рядка, він чесно переходить і тим самим сам створює нам другий пункт списку, куди і вставляємо потрібний рядок. Ну і так далі, потрібну кількість разів. Останні два рядки потрібні, якщо список заготовлений в окремому файлі - після їх виконання список виявляється в буфері обміну. Тут вигода в тому, що можемо мати заготовки списків різних стилів і по ходу справи вибирати, який список створити. Потім відкриваємо документ, де повинен бути список, виділяємо за допомогою Range потрібний шматок, копіюємо з буфер...
