Разработка системы автоматического заполнения анкеты в формате MS Word

Размещено на http://www.allbest.ru/

Введение

анкета автоматический заполнение программа

Для решения задачи, поставленной в курсовой работе, используется язык программирования Delphi.

Delphi - это продукт Borland International для быстрого создания приложений. Высокопроизводительный инструмент визуального построения приложений включает в себя настоящий компилятор кода и предоставляет средства визуального программирования, несколько похожие на те, что можно обнаружить в Microsoft Visual Basic или в других инструментах визуального проектирования. В основе Delphi лежит язык Object Pascal, который является расширением объектно-ориентированного языка Pascal. В Delphi также входят локальный SQL-сервер, генераторы отчетов, библиотеки визуальных компонентов, и прочее хозяйство, необходимое для того, чтобы чувствовать себя совершенно уверенным при профессиональной разработке информационных систем или просто программ для Windows-среды.

Это среда разработки, используемой прежде всего для создания и поддержки приложений, предназначенных как для отдельных персональных компьютеров, так и для серверов. Delphi, как и разработанные с ее помощью приложения, могут функционировать под практически любой 32 разрядной операционной системой Windows. Это довольно легкая в изучении среда, и в то же время довольно сложная. Изучить ее полностью и досконально - невозможно.

Прежде всего, Delphi предназначен для профессиональных разработчиков, желающих очень быстро разрабатывать приложения в архитектуре клиент-сервер. Delphi производит небольшие по размерам (до 15-30 Кбайт) высокоэффективные исполняемые модули (.exe и .dll), поэтому в Delphi должны быть прежде всего заинтересованы те, кто разрабатывает продукты на продажу. С другой стороны небольшие по размерам и быстро исполняемые модули означают, что требования к клиентским рабочим местам существенно снижаются - это имеет немаловажное значение и для конечных пользователей.

Delphi имеет пользовательский графический интерфейс, подобный Visual Basic и C++. Человек, ранее работавший в подобной среде, не будет чувствовать себя не в своей тарелке. Честно говоря, на данный момент множество фирм приняло за стандарт данный интерфейс для собственных приложений. Хорошим стимулом к получению знаний по данному предмету является знание хоть какого-нибудь языка программирования, или принципов написания программы. Идеально - знание языка программирования Pascal. Ведь весь исходный текст программы на Дельфи пишется на языке Object Pascal, практически ничем не отличающимся от принципов, заложенных в такой знаменитой программной оболочке. Синтаксис, принцип модуля, процедуры, функции, все взято за основу.

Огромный плюс Delphi - это визуальная технология программирования. Создавая или модифицируя свой программный продукт, пользователь не зная или не обращая внимания на некоторые свойства элемента программы, а используя только необходимые, пишет полностью готовый рабочий продукт, порой выступающий на равных по сложности, с написанными на невизуальном редакторе.

Преимущества Delphi по сравнению с аналогичными программными продуктами:

ь простой и мощный язык программирования Pascal;

ь быстрота разработки приложения;

ь высокая производительность разработанного приложения;

ь низкие требования разработанного приложения к ресурсам компьютера;

ь наращиваемость за счет встраивания новых компонент и инструментов в среду Delphi;

ь возможность разработки новых компонент и инструментов собственными средствами Delphi (существующие компоненты и инструменты доступны в исходных кодах);

ь удачная проработка иерархии объектов.

ь обширная объектная библиотека VCL;

Возможности Delphi полностью отвечают требованиям курсовой работы и подходят для создания систем любой сложности. Поэтому мой выбор остановился на Delphi.

1. Постановка задачи

Разработка системы автоматического заполнения анкеты в формате MS Word.

Основные требования:

Анкета должна иметь корректные условия переходов от одного вопроса к другому. Вопросов в анкете должно быть не менее 15.Типов данных для вводимых ответов должно быть не менее 3.

2. Выбор средств реализации

2.1 Работа с файлами

Файл - это именованная структура данных, представляющая собой последовательность элементов данных одного типа расположенных на диске или любом другом внешнем носителе.

Для файла существует понятие текущей позиции. Она показывает номер элемента, который будет прочитан или записан при очередном обращении к файлу. Чтение-запись каждого элемента продвигает текущую позицию на единицу вперед. Для большинства файлов можно менять текущую позицию чтения-записи, выполняя прямой доступ к его элементам.

В зависимости от типа элементов различают три вида файла:

ь файл из элементов определенного типа (типизированные файлы);

ь файл из элементов, тип которых не указан (нетипизированный файл);

ь текстовый файл, т.е. элементами являются текстовые строки.

Для работы с файлом в программе объявляется файловая переменная (логический файл) в разделе описания переменных:

имя_файла:file of тип_элементов_файлов;

Файл, компонентами которого являются данные символьного типа, называется символьным, или текстовым:

имя_файла:TextFile;

После объявления файловой переменной, которая задает тип компонентов файла, необходимо указать конкретный файл, т.е. связать файловую переменную с физическим файлом. Для этого используется процедура:

AssignFile(var f, имя_файла:String);

Функции и процедуры для работы с файлами:

1. Открытие файла для записи.

a. Перезапись (запись нового файла поверх существующего или создание нового файла) - используется процедура rewrite (файловая_переменная).

b. добавление в конец файла - используется процедура append (файловая_переменная)

2. Запись в файл

a. Write(файловая_переменная, список_переменных)

b. Writeln(файловая_переменная, список_переменных)

Различие между инструкциями в том, что инструкция writeln после вывода всех значений, записывает в файл символ «новая строка».

3. Закрытие файла. Перед завершением работы все открытые файлы необходимо закрыть с помощью процедуры

a. CloseFile (файловая_переменная)

4. Открытие файла для чтения. Используется процедура

a. Reset (файловая_переменная)

5. Чтение данных из файла

a. read(файловая_переменная, список_переменных)

b. readln(файловая_переменная, список_переменных)

Отличие между этими процедурами в том, что при вызове инструкции readln указатель чтения из файла автоматически перемещается в начало следующей строки файла.

6. Определение конца файла. Используется функция EOF(файловая_переменная). Значение функции равно false, если прочитанный элемент данных не является последним в файле, т.е. возможно дальнейшее чтение. Если прочитанный элемент файла является последним, то значение EOF равно true.

a. While not eof(f) do begin … end;

7. Rename(var F; NewName: string) - переименовывает неоткрытый файл F любого типа. Новое имя задается в NewName.

8. Seek(var F; NumRec: Longint) - устанавливает позицию чтения записи на элемент с номером NumRec; F - типизированный или нетипизированный файл.

9. IOResult: Integer - возвращает код, характеризующий результат (была ошибка или нет) последней операции ввода-вывода.

10. FilePos(var F): Longint - возвращает для файла F текущую файловую позицию (номер элемента, на которую она установлена, считая от нуля). Не используется с текстовыми файлами.

11. FileSize(var F): Longint - возвращает число компонент в файле F.

Не используется с текстовыми файлами.

Для работы с файлами можно использовать следующие визуальные компоненты:

ь OpenDialog;

ь SaveDialog и др, которые находятся на вкладке Dialogs.

2.2 Работа с MS Word

Если на главную форму выкладываем компоненту с закладки servers, которая называется, например WordApplication, то при запуске приложения запустится сервер автоматизации Microsoft Word. Этот факт можно обнаружить, запустив на выполнение task manager и выбрав закладку processes. Среди прочих процессов мы обнаруживаем winword.exe. При этом выполняются следующие действия:

- при создании формы, в системном реестре, по идентификатору CLSID был найден сервер Word.Application

- запущено на выполнение приложение, находящееся по адресу в реестре (progid)

- сервер предоставил нашему приложению, которое и является контроллером автоматизации интерфейс, через который мы и получим доступ к объекту Application.

Практически всегда при работе с сервером Word вам приходится иметь дело с свойством Documents. Это свойство представляет собой собрание всех документов, открытых в Word в данный момент. Каждый документ представлен в этом собрании как объект Document, имеющий в свою очередь собственные свойства и методы. Общее число открытых документов определяется свойством count собрания документов Documents.

При вызове из delphi любого метода сервера сом аргументы (кроме аргументов типа text) передаются только как объекты типа OleVariant. Если какие-то аргументы не являются обязательными, то все равно они должны фигурировать в вызове метода. Только вместо их значений может быть указана EmptyParam --переменная типа OleVariant, используемая вместо необязательных параметров. Эта переменная объявлена в модулях System и Olectrls. Таким образом, если вы хотите создать новый документ на основе обычного шаблона, вы можете записать оператор:

WordApplicationl.Documents.Add(EmptyParam,EmptyParam, EmptyParam, EmptyParam);

Важным свойством сервера Word является свойство Selection, являющееся cсылкой на выделенный фрагмент текста в активном документе или, если нет выделения, то просто текущая позиция курсора в активном документе. Этот объект имеет методы InSertBefore и InSertAfter, аргументом в которые передается текст, вставляемый в активный документ соответственно до или после объекта Selection.

Сохранение активного документа в файле с заданным именем можно осуществить методом SaveAs класса Document, передавая в него как аргумент типа OleVariant имя файла с путем к нему. Если путь отсутствует, то файл сохраняется в текущем каталоге.

В данной курсовой используется замена текста. Для того чтобы произвести замену нужно:

1. Создать на форме документ WordApplication:

WordApplication1: TWordApplication;

2. Создать Word файл:

FName:='K:\\Универ\\Программирование\\Курсач 2.0\\Anceta.doc';

3. Настроить соединение с сервером Word и подключиться к документу:

WordApplication1.Connect;

4. Открыть этот файл:

WordApplication1.Documents.Open(FName,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

5. Перейти к началу файла:

start:=wdStory;

WordApplication1.Selection.Homekey(Start,EmptyParam);

6. Произвести поиск и замену в документе:

doc1:='<фамилия>';

cod1:=Edit1.Text;

FOne1:=wdFindStop;

ROne1:=wdReplaceOne;

WordApplication1.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 - выпадаюший список выбора пола;

ь GroupBox4: TGroupBox - контейнер группы элементов «Дата заполнения»;

ь DateTimePicker2: TDateTimePicker - селектор даты заполнения;

ь TabSheet2: TTabSheet - II вкладка «Адрес /Контактные данные»;

ь TabSheet3: TTabSheet - III вкладка «Образование»;

ь TabSheet4: TTabSheet - IV вкладка «Работа»;

ь TabSheet5: TTabSheet - V вкладка «Навыки»;

ь TabSheet6: TTabSheet - VI вкладка «Брак/Дети»;

ь TabSheet7: TTabSheet - VII вкладка «Другое»;

ь GroupBox7: TGroupBox - контейнер группы элементов «Гражданство»;

ь Edit7: TEdit - строка ввода гражданства;

ь GroupBox5: TGroupBox - контейнер группы элементов «Адрес»;

ь Edit5: TEdit - строка ввода фактического проживания;

ь Edit6: TEdit - строка ввода прописки;

ь Label6: TLabel - метка «Фактического проживания»;

ь Label7: TLabel - метка «По прописке»;

ь GroupBox6: TGroupBox - контейнер группы элементов «Связь»;

ь Label8: TLabel - метка «Телефон»;

ь Label9: TLabel - метка «E-mail»;

ь Edit8: TEdit - строка ввода номера телефона;

ь Edit9: TEdit - строка ввода электронной почты;

ь GroupBox14: TGroupBox - контейнер группы элементов «Дети»;

ь Label23: TLabel - метка «Количество»;

ь Edit44: TEdit - строка ввода количества детей;

ь GroupBox13: TGroupBox - контейнер группы элементов «Брак»;

ь Edit43: TEdit - строка ввода состояния в браке;

ь GroupBox8: TGroupBox - контейнер группы элементов «Образование»;

ь Label10: TLabel - метка «Специальность»;

ь Label11: TLabel - метка «Учебное заведение»;

ь Edit10: TEdit - строка ввода специальности;

ь Edit11: TEdit - строка ввода специальности;

ь Edit12: TEdit - строка ввода специальности;

ь Edit13: TEdit - строка ввода учебного заведения;

ь Edit14: TEdit - строка ввода учебного заведения;

ь Edit15: TEdit - строка ввода учебного заведения;

ь GroupBox9: TGroupBox - контейнер группы элементов «Опыт работы»;

ь Label12: TLabel - метка «Дата приема»;

ь Label13: TLabel - метка «Дата увольнения»;

ь Label14: TLabel - метка «Компания»;

ь Label15: TLabel - метка «Должность»;

ь Label16: TLabel - метка «Причина увольнения»;

ь Edit16: TEdit - строка ввода компании;

ь DateTimePicker3: TDateTimePicker - селектор даты приема;

ь DateTimePicker4: TDateTimePicker - селектор даты увольнения;

ь Edit17: TEdit - строка ввода компании;

ь Edit18: TEdit - строка ввода компании;

ь Edit19: TEdit - строка ввода должности;

ь Edit20: TEdit - строка ввода должности;

ь Edit21: TEdit - строка ввода должности;

ь Edit22: TEdit - строка ввода причины увольнения;

ь Edit23: TEdit - строка ввода причины увольнения;

ь Edit24: TEdit - строка ввода причины увольнения;

ь GroupBox10: TGroupBox - контейнер группы элементов «Знание языков»;

ь GroupBox11: TGroupBox - контейнер группы элементов «Программы»;

ь GroupBox12: TGroupBox - контейнер группы элементов «Водительское удостоверение»;

ь Label17: TLabel - метка «Язык»;

ь Label18: TLabel - метка «Уровень»;

ь Edit25: TEdit - строка ввода языка;

ь Edit26: TEdit - строка ввода языка;

ь Edit27: TEdit - строка ввода языка;

ь Edit28: TEdit - строка ввода уровня;

ь Edit29: TEdit - строка ввода уровня;

ь Edit30: TEdit - строка ввода уровня;

ь Label19: TLabel - метка «Программы/Пакет»;

ь Label20: TLabel - метка «Уровень»;

ь Edit31: TEdit - строка ввода программ/пакетов;

ь Edit32: TEdit - строка ввода программ/пакетов;

ь Edit33: TEdit - строка ввода программ/пакетов;

ь Edit34: TEdit - строка ввода уровня;

ь Edit35: TEdit - строка ввода уровня;

ь Edit36: TEdit - строка ввода уровня;

ь Edit37: TEdit - строка ввода категории;

ь Label21: TLabel - метка «Категория»;

ь Label22: TLabel - метка «Стаж»;

ь Edit38: TEdit - строка ввода категории;

ь Edit39: TEdit - строка ввода категории;

ь Edit40: TEdit - строка ввода стажа;

ь Edit41: TEdit - строка ввода стажа;

ь Edit42: TEdit - строка ввода стажа;

ь GroupBox15: TGroupBox - контейнер группы элементов «Желаемая должность»;

ь GroupBox16: TGroupBox - контейнер группы элементов «Желаемая з/п»;

ь Label24: TLabel - метка «Начиная с последнего и раньше»;

ь Edit45: TEdit - строка ввода желаемой должности;

ь Edit46: TEdit - строка ввода желаемой з/п;

ь WordApplication1: TWordApplication - для работы с MS Word;

ь SaveDialog1: TSaveDialog - для сохранения;

ь OpenDialog1: TOpenDialog - для открытия;

ь DateTimePicker5: TDateTimePicker - селектор даты приема;

ь DateTimePicker6: TDateTimePicker - селектор даты приема;

ь DateTimePicker7: TDateTimePicker - селектор даты увольнения;

ь DateTimePicker8: TDateTimePicker - селектор даты увольнения;

ь MainMenu1: TMainMenu - главное меню программы;

ь N1: TMenuItem - пункт главного меню «Файл»;

ь N2: TMenuItem - пункт главного меню «О программе…»;

ь N4: TMenuItem - подпункт главного меню «Сохранить как…»;

ь N5: TMenuItem - подпункт главного меню «Справка»;

И функции:

ь procedure N5Click(Sender: TObject) - для вызова справки;

ь procedure N4Click(Sender: TObject) - для сохранения;

3.2 Процедура N5Click

Процедура обрабатывает событие на нажатие подпункта «Справка» главного меню «О программе». В данной процедуре используется метод MessageBox. Отобразится новая форма с информацией о разработчике программы.

3.3 Процедура N4Click

Процедура обрабатывает событие на нажатии подпункта «Сохранить как…» главного меню «Файл». В данной процедуре программа подключается к шаблону анкеты (файл .doc), заносит все ответы на вопросы в этот файл.

4. Описание пользовательского интерфейса

4.1 Общие сведения

Созданный программный продукт предназначен для автоматического заполнения анкеты в формате MS WORD. Пользователь может пройти анкетирование и сохранить результаты в файл.

4.2 Описание диалога с пользователем

После запуска программы на экране появляется окно программы.

В верхней части окна расположено меню с кнопками «Файл» и «О программе». «Файл» содержит пункт «Сохранить как…», с помощью которого пользователь может сохранить анкету в формате .doc. «О программе» содержит пункт «Справка», с помощью которого пользователь может получить информацию о разработчике.

Когда пользователь ответит на вопросы и нажмет на кнопку «Файл» => «Сохранить как…», программа занесет все ответы в анкету MS Word.

Результаты анкетирования:

5.3 Листинг программы

Листинг программы представлен в приложении .

Вывод

В результате выполнение курсовой работы была создана программа, реализующая автоматическое заполнение анкеты в формате MS Word.

Данная программа позволяет:

ь Отвечать на вопросы анкеты

ь Автоматически заполнять анкету в Word файле

ь Сохранить результаты анкетирование в файле

Работа с программой осуществляется в режиме диалога с пользователем. Программа может работать на компьютере не хуже Pentium с операционной системой Windows XP или с ней совместимой.

Кроме практических результатов при выполнении курсовой работы был изучен теоретический материал по методу сохранения данных в MS Word.

Для программной реализации поставленной задачи были изучены теоретические материалы по языку программирования Delphi.

Список используемой литературы

анкета автоматический заполнение программа

1. Уроки делфи. [Электронный ресурс]. URT: ©Компоненты делфи. [Электронный ресурс]. URT: http://delphicomponent.ru/

2. Диалоги открытия и сохранения в делфи. [Электронный ресурс]. URT: http://mydelphiprogramms.jimdo.com/2012/03/23/delphi-диалоги-открытия-и-сохранения-файлов/

3. MessageBox в делфи. [Элекстронный ресурс]. URT: http://clickoman.narod.ru/help/delphi_mess.html

4. Уроки делфи. [Элекстронный ресурс]. URT: http://www.delphi-manual.ru/lesson1.php

5. Василий Корняков. Программирование документов MS Word в Delphi / Василий Корняков // Программирование документов и приложений MS Office в Delphi - Санкт Петербург, 2005 - 41-188с.

Приложение

Листинг

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComCtrls, ExtCtrls, OleServer, WordXP, Menus;

type

TForm1 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

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;

GroupBox4: TGroupBox;

DateTimePicker2: TDateTimePicker;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

TabSheet5: TTabSheet;

TabSheet6: TTabSheet;

TabSheet7: TTabSheet;

GroupBox7: TGroupBox;

Edit7: TEdit;

GroupBox5: TGroupBox;

Edit5: TEdit;

Edit6: TEdit;

Label6: TLabel;

Label7: TLabel;

GroupBox6: TGroupBox;

Label8: TLabel;

Label9: TLabel;

Edit8: TEdit;

Edit9: TEdit;

GroupBox14: TGroupBox;

Label23: TLabel;

Edit44: TEdit;

GroupBox13: TGroupBox;

Edit43: TEdit;

GroupBox8: TGroupBox;

Label10: TLabel;

Label11: TLabel;

Edit10: TEdit;

Edit11: TEdit;

Edit12: TEdit;

Edit13: TEdit;

Edit14: TEdit;

Edit15: TEdit;

GroupBox9: TGroupBox;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Edit16: TEdit;

DateTimePicker3: TDateTimePicker;

DateTimePicker4: TDateTimePicker;

Edit17: TEdit;

Edit18: TEdit;

Edit19: TEdit;

Edit20: TEdit;

Edit21: TEdit;

Edit22: TEdit;

Edit23: TEdit;

Edit24: TEdit;

GroupBox10: TGroupBox;

GroupBox11: TGroupBox;

GroupBox12: TGroupBox;

Label17: TLabel;

Label18: TLabel;

Edit25: TEdit;

Edit26: TEdit;

Edit27: TEdit;

Edit28: TEdit;

Edit29: TEdit;

Edit30: TEdit;

Label19: TLabel;

Label20: TLabel;

Edit31: TEdit;

Edit32: TEdit;

Edit33: TEdit;

Edit34: TEdit;

Edit35: TEdit;

Edit36: TEdit;

Edit37: TEdit;

Label21: TLabel;

Label22: TLabel;

Edit38: TEdit;

Edit39: TEdit;

Edit40: TEdit;

Edit41: TEdit;

Edit42: TEdit;

GroupBox15: TGroupBox;

GroupBox16: TGroupBox;

Label24: TLabel;

Edit45: TEdit;

Edit46: TEdit;

WordApplication1: TWordApplication;

SaveDialog1: TSaveDialog;

OpenDialog1: TOpenDialog;

DateTimePicker5: TDateTimePicker;

DateTimePicker6: TDateTimePicker;

DateTimePicker7: TDateTimePicker;

DateTimePicker8: TDateTimePicker;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

procedure N5Click(Sender: TObject);

procedure N4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1:TForm1;

FName:OleVariant;

Start:OleVariant;

doc1,doc2,doc3,doc4,doc5,doc6,doc7,doc8,doc9,doc10,doc11,doc12,doc13,doc14,doc15,doc16,doc17,

doc18,doc19,doc20,doc21,doc22,doc23,doc24,doc25,doc26,doc27,doc28,doc29,doc30,doc31,doc32,

doc33,doc34,doc35,doc36,doc37,doc38,doc39,doc40,doc41,doc42,doc43,doc44,doc45,doc46,doc47,

doc48,doc49,doc50,doc51,doc52,doc53,doc54,doc55:OleVariant;

cod1,cod2,cod3,cod4,cod5,cod6,cod7,cod8,cod9,cod10,cod11,cod12,cod13,cod14,cod15,cod16,cod17,

cod18,cod19,cod20,cod21,cod22,cod23,cod24,cod25,cod26,cod27,cod28,cod29,cod30,cod31,cod32,

cod33,cod34,cod35,cod36,cod37,cod38,cod39,cod40,cod41,cod42,cod43,cod44,cod45,cod46,cod47,

cod48,cod49,cod50,cod51,cod52,cod53,cod54,cod55:OleVariant;

FOne1,FOne2,FOne3,FOne4,FOne5,FOne6,FOne7,FOne8,FOne9,FOne10,FOne11,FOne12,FOne13,

FOne14,FOne15,FOne16,FOne17,FOne18,FOne19,FOne20,FOne21,FOne22,FOne23,FOne24,FOne25,

FOne26,FOne27,FOne28,FOne29,FOne30,FOne31,FOne32,FOne33,FOne34,FOne35,FOne36,FOne37,

FOne38,FOne39,FOne40,FOne41,FOne42,FOne43,FOne44,FOne45,FOne46,FOne47,FOne48,FOne49,

FOne50,FOne51,FOne52,FOne53,FOne55, FOne54:OleVariant;

ROne1,ROne2,ROne3,ROne4,ROne5,ROne6,ROne7,ROne8,ROne9,ROne10,ROne11,ROne12,

ROne13,ROne14,ROne15,ROne16,ROne17,ROne18,ROne19,ROne20,ROne21,ROne22,ROne23,

ROne24,ROne25,ROne26,ROne27,ROne28,ROne29,ROne30,ROne31,ROne32,ROne33,ROne34,

ROne35,ROne36,ROne37,ROne38,ROne39,ROne40,ROne41,ROne42,ROne43,ROne44,ROne45,

ROne46,ROne47,ROne48,ROne49,ROne50,ROne51,ROne52,ROne53,ROne54,ROne55:OleVariant;

implementation

{$R *.dfm}

procedure TForm1.N5Click(Sender: TObject);

begin

MessageBox(handle,PChar('Данная программа разработана для курсовой работы студентки 1 курса факультета ФИТКБ группы ИСТ-131 Таранцевой Наталией'),PChar('Справка о программе'),MB_ICONASTERISK+MB_OK);

end;

procedure TForm1.N4Click(Sender: TObject);

begin

FName:='K:\\Универ\\Программирование\\Курсач 2.0\\Anceta.doc';

WordApplication1.Connect;

WordApplication1.Documents.Open(FName,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam);

start:=wdStory;

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc1:='<фамилия>';

cod1:=Edit1.Text;

FOne1:=wdFindStop;

ROne1:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc1,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne1,EmptyParam,cod1,

ROne1,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc2:='<имя>';

cod2:=Edit2.Text;

FOne2:=wdFindStop;

ROne2:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc2,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne2,EmptyParam,cod2,

ROne2,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc3:='<отчество>';

cod3:=Edit3.Text;

FOne3:=wdFindStop;

ROne3:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc3,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne3,EmptyParam,cod3,

ROne3,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc4:='<пол>';

cod4:=ComboBox1.Text;

FOne4:=wdFindStop;

ROne4:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc4,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne4,EmptyParam,cod4,

ROne4,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc5:='<место рождения>';

cod5:=Edit4.Text;

FOne5:=wdFindStop;

ROne5:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc5,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne5,EmptyParam,cod5,

ROne5,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc6:='<гражданство>';

cod6:=Edit7.Text;

FOne6:=wdFindStop;

ROne6:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc6,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne6,EmptyParam,cod6,

ROne6,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc7:='<брак>';

cod7:=Edit43.Text;

FOne7:=wdFindStop;

ROne7:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc7,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne7,EmptyParam,cod7,

ROne7,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc8:='<дети>';

cod8:=Edit44.Text;

FOne8:=wdFindStop;

ROne8:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc8,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne8,EmptyParam,cod8,

ROne8,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc9:='<адрес проживания>';

cod9:=Edit5.Text;

FOne9:=wdFindStop;

ROne9:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc9,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne9,EmptyParam,cod9,

ROne9,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc10:='<адрес прописки>';

cod10:=Edit6.Text;

FOne10:=wdFindStop;

ROne10:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc10,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne10,EmptyParam,cod10,

ROne10,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc11:='<телефон>';

cod11:=Edit8.Text;

FOne11:=wdFindStop;

ROne11:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc11,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne11,EmptyParam,cod11,

ROne11,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc12:='<почта>';

cod12:=Edit9.Text;

FOne12:=wdFindStop;

ROne12:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc12,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne12,EmptyParam,cod12,

ROne12,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc13:='<спец1>';

cod13:=Edit10.Text;

FOne13:=wdFindStop;

ROne13:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc13,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne13,EmptyParam,cod13,

ROne13,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc14:='<спец2>';

cod14:=Edit11.Text;

FOne14:=wdFindStop;

ROne14:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc14,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne14,EmptyParam,cod14,

ROne14,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc15:='<спец3>';

cod15:=Edit12.Text;

FOne15:=wdFindStop;

ROne15:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc15,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne15,EmptyParam,cod15,

ROne15,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc16:='<уч заведение1>';

cod16:=Edit13.Text;

FOne16:=wdFindStop;

ROne16:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc16,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne16,EmptyParam,cod16,

ROne16,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc17:='<уч заведение2>';

cod17:=Edit14.Text;

FOne17:=wdFindStop;

ROne17:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc17,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne17,EmptyParam,cod17,

ROne17,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc18:='<уч заведение3>';

cod18:=Edit15.Text;

FOne18:=wdFindStop;

ROne18:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc18,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne18,EmptyParam,cod18,

ROne18,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc19:='<дата пр1>';

cod19:=DateToStr(DateTimePicker3.Date);

FOne19:=wdFindStop;

ROne19:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc19,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne19,EmptyParam,cod19,

ROne19,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc20:='<дата пр2>';

cod20:=DateToStr(DateTimePicker5.Date);

FOne20:=wdFindStop;

ROne20:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc20,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne20,EmptyParam,cod20,

ROne20,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc21:='<дата пр3>';

cod21:=DateToStr(DateTimePicker6.Date);

FOne21:=wdFindStop;

ROne21:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc21,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne21,EmptyParam,cod21,

ROne21,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc22:='<дата ув1>';

cod22:=DateToStr(DateTimePicker4.Date);

FOne22:=wdFindStop;

ROne22:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc22,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne22,EmptyParam,cod22,

ROne22,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc23:='<дата ув2>';

cod23:=DateToStr(DateTimePicker7.Date);

FOne23:=wdFindStop;

ROne23:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc23,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne23,EmptyParam,cod23,

ROne23,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc24:='<дата ув3>';

cod24:=DateToStr(DateTimePicker8.Date);

FOne24:=wdFindStop;

ROne24:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc24,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne24,EmptyParam,cod24,

ROne24,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc25:='<комп1>';

cod25:=Edit16.Text;

FOne25:=wdFindStop;

ROne25:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc25,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne25,EmptyParam,cod25,

ROne25,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc26:='<комп2>';

cod26:=Edit17.Text;

FOne26:=wdFindStop;

ROne26:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc26,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne26,EmptyParam,cod26,

ROne26,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc27:='<комп3>';

cod27:=Edit18.Text;

FOne27:=wdFindStop;

ROne27:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc27,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne27,EmptyParam,cod27,

ROne27,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc28:='<должность1>';

cod28:=Edit19.Text;

FOne28:=wdFindStop;

ROne28:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc28,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne28,EmptyParam,cod28,

ROne28,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc29:='<должность2>';

cod29:=Edit20.Text;

FOne29:=wdFindStop;

ROne29:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc29,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne29,EmptyParam,cod29,

ROne29,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc30:='<должность3>';

cod30:=Edit21.Text;

FOne30:=wdFindStop;

ROne30:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc30,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne30,EmptyParam,cod30,

ROne30,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc31:='<причина ув1>';

cod31:=Edit22.Text;

FOne31:=wdFindStop;

ROne31:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc31,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne31,EmptyParam,cod31,

ROne31,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc32:='<причина ув2>';

cod32:=Edit23.Text;

FOne32:=wdFindStop;

ROne32:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc32,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne32,EmptyParam,cod32,

ROne32,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc33:='<причина ув3>';

cod33:=Edit24.Text;

FOne33:=wdFindStop;

ROne33:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc33,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne33,EmptyParam,cod33,

ROne33,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc34:='<язык1>';

cod34:=Edit25.Text;

FOne34:=wdFindStop;

ROne34:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc34,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne34,EmptyParam,cod34,

ROne34,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc35:='<язык2>';

cod35:=Edit26.Text;

FOne35:=wdFindStop;

ROne35:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc35,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne35,EmptyParam,cod35,

ROne35,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc36:='<язык3>';

cod36:=Edit27.Text;

FOne36:=wdFindStop;

ROne36:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc36,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne36,EmptyParam,cod36,

ROne36,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc37:='<ур-нь1>';

cod37:=Edit28.Text;

FOne37:=wdFindStop;

ROne37:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc37,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne37,EmptyParam,cod37,

ROne37,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc38:='<ур-нь2>';

cod38:=Edit29.Text;

FOne38:=wdFindStop;

ROne38:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc38,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne38,EmptyParam,cod38,

ROne38,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc39:='<ур-нь3>';

cod39:=Edit30.Text;

FOne39:=wdFindStop;

ROne39:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc39,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne39,EmptyParam,cod39,

ROne39,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc40:='<проги1>';

cod40:=Edit31.Text;

FOne40:=wdFindStop;

ROne40:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc40,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne40,EmptyParam,cod40,

ROne40,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc41:='<проги2>';

cod41:=Edit32.Text;

FOne41:=wdFindStop;

ROne41:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc41,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne41,EmptyParam,cod41,

ROne41,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc42:='<проги3>';

cod42:=Edit33.Text;

FOne42:=wdFindStop;

ROne42:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc42,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne42,EmptyParam,cod42,

ROne42,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc43:='<ур-нь4>';

cod43:=Edit34.Text;

FOne43:=wdFindStop;

ROne43:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc43,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne43,EmptyParam,cod43,

ROne43,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc44:='<ур-нь5>';

cod44:=Edit35.Text;

FOne44:=wdFindStop;

ROne44:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc44,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne44,EmptyParam,cod44,

ROne44,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc45:='<ур-нь6>';

cod45:=Edit36.Text;

FOne45:=wdFindStop;

ROne45:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc45,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne45,EmptyParam,cod45,

ROne45,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc46:='<кат1>';

cod46:=Edit37.Text;

FOne46:=wdFindStop;

ROne46:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc46,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne46,EmptyParam,cod46,

ROne46,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc47:='<кат2>';

cod47:=Edit38.Text;

FOne47:=wdFindStop;

ROne47:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc47,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne47,EmptyParam,cod47,

ROne47,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc48:='<кат3>';

cod48:=Edit39.Text;

FOne48:=wdFindStop;

ROne48:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc48,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne48,EmptyParam,cod48,

ROne48,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc49:='<стаж1>';

cod49:=Edit40.Text;

FOne49:=wdFindStop;

ROne49:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc49,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne49,EmptyParam,cod49,

ROne49,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc50:='<стаж2>';

cod50:=Edit41.Text;

FOne50:=wdFindStop;

ROne50:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc50,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne50,EmptyParam,cod50,

ROne50,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc51:='<стаж3>';

cod51:=Edit42.Text;

FOne51:=wdFindStop;

ROne51:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc51,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne51,EmptyParam,cod51,

ROne51,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc52:='<жел должность>';

cod52:=Edit45.Text;

FOne52:=wdFindStop;

ROne52:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc52,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne52,EmptyParam,cod52,

ROne52,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc53:='<жел зарплата>';

cod53:=Edit46.Text;

FOne53:=wdFindStop;

ROne53:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc53,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne53,EmptyParam,cod53,

ROne53,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc54:='<дата заполнения>';

cod54:=DateToStr(DateTimePicker2.Date);

FOne54:=wdFindStop;

ROne54:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc54,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne54,EmptyParam,cod54,

ROne54,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Selection.Homekey(Start,EmptyParam);

doc55:='<дата рождения>';

cod55:=DateToStr(DateTimePicker1.Date);

FOne55:=wdFindStop;

ROne55:=wdReplaceOne;

WordApplication1.Selection.Find.Execute(doc55,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,FOne55,EmptyParam,cod55,

ROne55,EmptyParam,EmptyParam,

EmptyParam,EmptyParam);

WordApplication1.Visible:=true;

end;

end.

Размещено на Allbest.ru