Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
pmv008
0 / 0 / 0
Регистрация: 04.08.2012
Сообщений: 44
#1

Криво выводит в ворд

27.05.2014, 23:55. Просмотров 290. Ответов 0
Метки нет (Все метки)

Здравствуйте, помогите найти ошибку, а то поздний час, голова не соображает. Он вместо того, чтобы ставить дату в поле "Дата выдачи" ставит ее в название книги.
Delphi
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;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.05.2014, 23:55
Ответы с готовыми решениями:

Криво выводит список
Проблема как я понял в procedure AddF. У меня выводи список задом наперед(как...

Прочитать письмо - программа выводит отправителя, но не выводит текст письма
получаю id письма IdMessage1.MsgId; считываю if pop.Connected then ...

FloodFill - криво заливает
Всем привет. В общем, задача состоит в том, чтобы при нажатии на кнопку...

Криво передает данные
При нажатии на button необходимо передать знаение ID из таблицы в Edit на...

Вывод в Ворд
У меня вопрос. Подскажите, у меня программа на Delphi 7 там у меня ведутся...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.05.2014, 23:55

Эксспорт в Ворд
Добрый день, как сделать, чтобы , например, при нажатии на кнопку открывался ms...

из дельфи в ворд
здравствуйте, прошу помощи, посмотрел много инфы по этому но все вода....в...

Из делфи в ворд
В чем может быть проблема?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru