1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
| procedure TForm7.sButton1Click(Sender: TObject);
var
docum,wd,vend,vstart,a,b:OLEVariant;
j,ilengy:integer;
begin
if (sComboBox1.Text='') or (MaskEdit1.Text='') or (LabeledEdit4.Text='') or (DateTimePicker1.Date<date) then
begin
Application.Title:='Ошибка';
ShowMessage('Проверьте правильно заполнения полей'); end
else begin
Application.Title:='';
showmessage('Ура! Заявка оформлена!');
if FileExists('zakaz.docx') then
begin
wd:=CreateOleObject('Word.Application');
docum:=wd.Documents.Open(ExtractFilePath(Application.ExeName)+'zakaz.docx');
ilengy:=Length(docum.range.text);
for j:=0 to ilengy-6 do
begin
a:=j;
b:=j+5;
if docum.Range(a,b).text='Ф.И.О' then begin
vstart:=j;
vend:=j+5;
end;
end;
docum.range(vstart,vend).select;
wd.selection.font.bold:=0;
wd.selection.font.size:=16;
wd.selection.font.color:=clblack;
wd.selection.insertafter(': '+sComboBox1.Text);
ilengy:=length(docum.range.text);
for j:=0 to ilengy-6 do begin
a:=j;
b:=j+5;
if docum.range(a,b).text='Адрес' then begin
vstart:=j;
vend:=j+5;
end;
end;
docum.range(vstart,vend).select;
wd.selection.font.bold:=0;
wd.selection.font.size:=16;
wd.selection.font.color:=clblack;
wd.selection.InsertAfter(': '+LabeledEdit4.Text);
ilengy:=Length(docum.range.text);
for j:=0 to ilengy-8 do begin
a:=j;
b:=j+7;
if docum.range(a,b).Text='Телефон' then begin
vstart:=j;
vend:=j+7;
end;
end;
docum.range(vstart,vend).select;
wd.selection.font.bold:=0;
wd.selection.font.size:=16;
wd.selection.font.color:=clblack;
wd.selection.InsertAfter(': '+MaskEdit1.Text);
ilengy:=length(docum.range.text);
for j:=0 to ilengy-10 do begin
a:=j;
b:=j+9;
if docum.range(a,b).Text='Код книги' then begin
vstart:=j;
vend:=j+9;
end;
end;
docum.range(vstart,vend).select;
wd.selection.insertafter(': '+LabeledEdit5.Text);
wd.selection.font.bold:=0;
wd.selection.font.size:=16;
wd.selection.font.color:=clblack;
ilengy:=length(docum.range.text);
for j:=0 to ilengy-15 do begin
a:=j;
b:=j+14;
if docum.range(a,b).text='Название книги' then begin
vstart:=j;
vend:=j+14;
end;end;
docum.range(vstart,vend).select;
wd.selection.insertafter(': '+LabeledEdit6.Text);
wd.selection.font.bold:=0;
wd.selection.font.size:=16;
wd.selection.font.color:=clblack;
ilengy:=length(docum.range.text);
for j:=0 to ilengy-14 do begin
a:=j;
b:=j+13;
if docum.range(a,b).text='Дата возврата' then begin
vstart:=j;
vend:=j+13;
end; end;
docum.range(vstart,vend).select;
wd.selection.InsertAfter(': '+datetostr(DateTimePicker1.DateTime));
wd.selection.font.bold:=0;
wd.selection.font.size:=16;
wd.selection.font.color:=clblack;
end;
wd.activedocument.SaveAs((ExtractFilePath(paramstr(0))+'/Заказы/'+(sComBobox1.Text)+'.docx'));
wd.visible:=true;
LabeledEdit4.Text:='';
LabeledEdit5.Text:='';
LabeledEdit6.Text:='';
MaskEdit1.Text:='';
end;
end; |
(
