ents.Add (EmptyParam, EmptyParam, EmptyParam, EmptyParam);
Важливою властивістю сервера Word є властивість Selection, що є власний кореспондент виділений фрагмент тексту в активному документі або, якщо немає виділення, то просто поточна позиція курсора в активному документі. Цей об'єкт має методи InSertBefore і InSertAfter, аргументом на які передається текст, що вставляється в активний документ відповідно до або після об'єкта Selection.
Збереження активного документа у файлі з заданим ім'ям можна здійснити методом SaveAs класу Document, передаючи в нього як аргумент типу OleVariant ім'я файлу з шляхом до нього. Якщо шлях відсутній, то файл зберігається в поточному каталозі.
У цій використовується заміна тексту. Для того щоб провести заміну потрібно:
. Створити на формі документ WordApplication:
WordApplication1: TWordApplication;
. Створити Word файл ::=«K: Універ Програмування курсачі 2.0 Anceta.doc»;
. Налаштувати з'єднання з сервером Word і підключитися до документа:
WordApplication1.Connect;
4. Відкрити цей файл:.Documents.Open(FName,EmptyParam,EmptyParam,,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,EmptyParam);
5. На початок файлу ::=wdStory;. Selection.Homekey (Start, EmptyParam);
6. Провести пошук і заміну в документі:
doc1:=«<фамилия>»;:=Edit1.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc1,EmptyParam, EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,FOne1,EmptyParam,cod1,ROne1,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
3. Розробка програмного забезпечення
3.1 Документація розробленої програми
У розробленій програмі використовуються такі модулі:
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls, OleServer, WordXP, Menus;
Так само використовуються такі компоненти:
? PageControl1: TPageControl - набір панелей із закладками;
? TabSheet1: TTabSheet - I вкладка «Особисті дані»;
? GroupBox1: TGroupBox - контейнер групи елементів «ПІБ»;
? Label1: TLabel - мітка «Прізвище»;
? Label2: TLabel - мітка «Ім'я»;
? Label3: TLabel - мітка «По батькові»;
? Edit1: TEdit - рядок введення прізвища;
? Edit2: TEdit - рядок введення імені;
? Edit3: TEdit - рядок введення батькові;
? GroupBox2: TGroupBox - контейнер групи елементів «Народження»;
? Label4: TLabel - мітка «Дата»;
? Label5: TLabel - мітка «Місце»;
? DateTimePicker1: TDateTimePicker - селектор дати народження;
? Edit4: TEdit - рядок введення місця народження;
? GroupBox3: TGroupBox - контейнер групи елементів «Пол»;
? ComboBox1: TComboBox - випад...