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

t;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc1,EmptyParam,EmptyParam,,EmptyParam,EmptyParam,,FOne1,EmptyParam,cod1,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);:=«<имя>»;:=Edit2.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc2,EmptyParam,EmptyParam,,EmptyParam,EmptyParam,,FOne2,EmptyParam,cod2,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);:=«<отчество>»;:=Edit3.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc3,EmptyParam,EmptyParam,,EmptyParam,EmptyParam,,FOne3,EmptyParam,cod3,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);:=«<пол>»;:=ComboBox1.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc4,EmptyParam,EmptyParam,,EmptyParam,EmptyParam,,FOne4,EmptyParam,cod4,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);

doc5:=«<місце народження>»;

cod5:=Edit4.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc5,EmptyParam,EmptyParam,,EmptyParam,EmptyParam,,FOne5,EmptyParam,cod5,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);:=&laquo;&lt;гражданство&gt;&raquo;;:=Edit7.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc6,EmptyParam,EmptyParam,,EmptyParam,EmptyParam,,FOne6,EmptyParam,cod6,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);:=&laquo;&lt;брак&gt;&raquo;;:=Edit43.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc7,EmptyParam,EmptyParam,,EmptyParam,EmptyParam,,FOne7,EmptyParam,cod7,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);:=&laquo;&lt;дети&gt;&raquo;;:=Edit44.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc8,EmptyParam,EmptyParam,,EmptyParam,EmptyParam,,FOne8,EmptyParam,cod8,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);

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

cod9:=Edit5.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc9,EmptyParam,EmptyParam,,EmptyParam,EmptyParam,,FOne9,EmptyParam,cod9,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);

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

cod10:=Edit6.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc10,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne10,EmptyParam,cod10,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);:=&laquo;&lt;телефон&gt;&raquo;;:=Edit8.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc11,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne11,EmptyParam,cod11,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);:=&laquo;&lt;почта&gt;&raquo;;:=Edit9.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc12,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne12,EmptyParam,cod12,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);:=&laquo;&lt;спец1&gt;&raquo;;:=Edit10.Text;:=wdFindStop;:=wdReplaceOne;.Selection.Find.Execute(doc13,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,FOne13,EmptyParam,cod13,,EmptyParam,EmptyParam,,EmptyParam);.Selection.Homekey(Start,EmptyParam);:=&laquo;&lt;спец2&gt;&...