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

raquo;;:=Edit11.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc14,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne14,EmptyParam,cod14,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);:=«<спец3>»;:=Edit12.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc15,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne15,EmptyParam,cod15,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);

doc16:=«<уч заведеніе1>»;

cod16:=Edit13.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc16,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne16,EmptyParam,cod16,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);

doc17:=«<уч заведеніе2>»;

cod17:=Edit14.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc17,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne17,EmptyParam,cod17,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);

doc18:=«<уч заведеніе3>»;

cod18:=Edit15.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc18,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne18,EmptyParam,cod18,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);

doc19:=«<дата ПР1>»;

cod19:=DateToStr(DateTimePicker3.Date);:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc19,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne19,EmptyParam,cod19,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);

doc20:=«<дата ПР2>»;

cod20:=DateToStr(DateTimePicker5.Date);:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc20,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne20,EmptyParam,cod20,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);

doc21:=«<дата ПР3>»;

cod21:=DateToStr(DateTimePicker6.Date);:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc21,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne21,EmptyParam,cod21,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);

doc22:=«<дата УВ1>»;

cod22:=DateToStr(DateTimePicker4.Date);:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc22,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne22,EmptyParam,cod22,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);

doc23:=«<дата УВ2>»;

cod23:=DateToStr(DateTimePicker7.Date);:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc23,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne23,EmptyParam,cod23,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);

doc24:=«<дата УВ3>»;

cod24:=DateToStr(DateTimePicker8.Date);:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc24,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne24,EmptyParam,cod24,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);:=&laquo;&lt;комп1&gt;&raquo;;:=Edit16.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc25,EmptyParam,EmptyParam,Empt...