trls, ExtCtrls, OleServer, WordXP, Menus;=class (TForm): TPageControl;: TTabSheet;: TGroupBox;: TLabel;: TLabel;: TLabel;: TEdit; : TEdit; : TEdit; : TGroupBox;: TLabel;: TLabel;: TDateTimePicker; : TEdit; : TGroupBox;: TComboBox; : TGroupBox;: TDateTimePicker; : TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TGroupBox;: TEdit; : TGroupBox;: TEdit; : TEdit; : TLabel;: TLabel;: TGroupBox;: TLabel;: TLabel;: TEdit; : TEdit; : TGroupBox;: TLabel;: TEdit; : TGroupBox;: TEdit; : TGroupBox;: TLabel;: TLabel;: TEdit; : TEdit; : TEdit; : TEdit; : TEdit; : TEdit; : TGroupBox;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit; : TDateTimePicker; : TDateTimePicker; : TEdit; : TEdit; : TEdit; : TEdit; : TEdit; : TEdit; : TEdit; : TEdit; : TGroupBox;: TGroupBox;: TGroupBox;: TLabel;: TLabel;: TEdit; : TEdit; : TEdit; : TEdit; : TEdit;: TEdit;: TLabel;: TLabel;: TEdit; : TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TGroupBox;: TGroupBox;: TLabel;: TEdit ;: TEdit;: TWordApplication;: TSaveDialog;: TOpenDialog;: TDateTimePicker;: TDateTimePicker;: TDateTimePicker;: TDateTimePicker;: TMainMenu;: TMenuItem; : TMenuItem; : TMenuItem; : TMenuItem; N5Click (Sender: TObject); N4Click (Sender: TObject);
{Private declarations}
{Public declarations };:TForm1;:OleVariant;:OleVariant;,doc2,doc3,doc4,doc5,doc6,doc7,doc8,doc9,doc10,doc11,doc12,doc13,doc14,doc15,doc16,doc17,,doc19,doc20,doc21,doc22,doc23,doc24,doc25,doc26,doc27,doc28,doc29,doc30,doc31,doc32,,doc34,doc35,doc36,doc37,doc38,doc39,doc40,doc41,doc42,doc43,doc44,doc45,doc46,doc47,,doc49,doc50,doc51,doc52,doc53,doc54,doc55:OleVariant;,cod2,cod3,cod4,cod5,cod6,cod7,cod8,cod9,cod10,cod11,cod12,cod13,cod14,cod15,cod16,cod17,,cod19,cod20,cod21,cod22,cod23,cod24,cod25,cod26,cod27,cod28,cod29,cod30,cod31,cod32,,cod34,cod35,cod36,cod37,cod38,cod39,cod40,cod41,cod42,cod43,cod44,cod45,cod46,cod47,,cod49,cod50,cod51,cod52,cod53,cod54,cod55:OleVariant;,FOne2,FOne3,FOne4,FOne5,FOne6,FOne7,FOne8,FOne9,FOne10,FOne11,FOne12,FOne13,,FOne15,FOne16,FOne17,FOne18,FOne19,FOne20,FOne21,FOne22,FOne23,FOne24,FOne25,,FOne27,FOne28,FOne29,FOne30,FOne31,FOne32,FOne33,FOne34,FOne35,FOne36,FOne37,,FOne39,FOne40,FOne41,FOne42,FOne43,FOne44,FOne45,FOne46,FOne47,FOne48,FOne49,,FOne51,FOne52,FOne53,FOne55, FOne54:OleVariant;,ROne2,ROne3,ROne4,ROne5,ROne6,ROne7,ROne8,ROne9,ROne10,ROne11,ROne12,,ROne14,ROne15,ROne16,ROne17,ROne18,ROne19,ROne20,ROne21,ROne22,ROne23,,ROne25,ROne26,ROne27,ROne28,ROne29,ROne30,ROne31,ROne32,ROne33,ROne34,,ROne36,ROne37,ROne38,ROne39,ROne40,ROne41,ROne42,ROne43,ROne44,ROne45,,ROne47,ROne48,ROne49,ROne50,ROne51,ROne52,ROne53,ROne54,ROne55:OleVariant;
{$ R *. dfm} TForm1.N5Click (Sender: TObject); (handle, PChar («Дана програма розроблена для курсової роботи студентки 1 курсу факультету ФІТКБ групи ІСТ - 131 Таранцеву Наталією») , PChar («Довідка про програму»), MB_ICONASTERISK + MB_OK);; TForm1.N4Click (Sender: TObject);
begin:=«K: Універ Програмування курсачі 2.0 Anceta.doc»;
WordApplication1.Connect;.Documents.Open(FName,EmptyParam,EmptyParam,EmptyParam,,EmptyParam,EmptyParam,EmptyParam,,EmptyParam,EmptyParam,EmptyParam,,EmptyParam,EmptyParam);:=wdStory;.Selection.Homekey(Start,EmptyParam);:=«<фамилия>»;:=Edit1.Tex...
