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

yParam,EmptyParam,EmptyParam,,FOne25,EmptyParam,cod25,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);:=«<комп2>»;:=Edit17.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc26,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne26,EmptyParam,cod26,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);:=«<комп3>»;:=Edit18.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc27,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne27,EmptyParam,cod27,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);:=«<должность1>»;:=Edit19.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc28,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne28,EmptyParam,cod28,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);:=«<должность2>»;:=Edit20.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc29,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne29,EmptyParam,cod29,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);:=«<должность3>»;:=Edit21.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc30,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne30,EmptyParam,cod30,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);

doc31:=«<причина УВ1>»;

cod31:=Edit22.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc31,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne31,EmptyParam,cod31,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);

doc32:=«<причина УВ2>»;

cod32:=Edit23.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc32,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne32,EmptyParam,cod32,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);

doc33:=«<причина УВ3>»;

cod33:=Edit24.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc33,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne33,EmptyParam,cod33,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);:=&laquo;&lt;язык1&gt;&raquo;;:=Edit25.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc34,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne34,EmptyParam,cod34,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);:=&laquo;&lt;язык2&gt;&raquo;;:=Edit26.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc35,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne35,EmptyParam,cod35,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);:=&laquo;&lt;язык3&gt;&raquo;;:=Edit27.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc36,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne36,EmptyParam,cod36,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);:=&laquo;&lt;ур-нь1&gt;&raquo;;:=Edit28.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc37,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne37,EmptyParam,cod37,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);:=&...