Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/18: Рейтинг темы: голосов - 18, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 10.12.2009
Сообщений: 23
1

Изменение и печать Doc через Delphi

28.01.2011, 08:13. Просмотров 3717. Ответов 12
Метки нет (Все метки)

В edit'ы вбиваются данные, после их необходимо расставить в определём месте в Doc'e и вывести на печать. Потскажике как это можно осуществить.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.01.2011, 08:13
Ответы с готовыми решениями:

Как через Delphi внести документ формата .doc или .pdf в базу данных Access?
Какой, при этом, присвоить тип данных для поля в Access? :(

Изменение БД через редактирование dbgrid delphi
Господа подскажите, есть база данных access прикрученная к dbgrid через adoquery в delphi, я при...

Изменение данных в IBExperte через Delphi
При создании приложения в делфи столкнулся с такой проблемой... В самой программе все работает,...

Прочтение и изменение текстового файла через Delphi
Доброго времени суток форумчане, подскажите: Дано название текстового файла (info.txt), программа...

12
124 / 124 / 24
Регистрация: 14.02.2010
Сообщений: 289
28.01.2011, 11:26 2
Можно с помощью шаблона. Создаете в Word-е шаблон документа сохраняете его с расширением *.dot а затем по такой технологии
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button7Click(Sender: TObject);
const wdReplaceAll=2;
begin
w.Documents.add(ExtractFileDir(Application.ExeName)+'\Шаблон простого конверта.dot');
 
w.selection.Find.Text:='###индекс&';
w.selection.Find.Replacement.Text:='350049';
w.selection.Find.Execute(Replace:=wdReplaceAll);
w.selection.Find.Text:='###адрес&';
w.selection.Find.Replacement.Text:='Краснодар, ул. Севастопольская, дом 3, кв. 1230';
w.selection.Find.Execute(Replace:=wdReplaceAll);
w.selection.Find.Text:='###получатель&';
w.selection.Find.Replacement.Text:='Иванов Иван Иванович';
w.selection.Find.Execute(Replace:=wdReplaceAll);
end;
поиск определенного текста и замена его на ваш! Который вы можете брать из Edit-отв.
0
0 / 0 / 0
Регистрация: 10.12.2009
Сообщений: 23
29.01.2011, 07:14  [ТС] 3
Матерится на w
0
1262 / 705 / 62
Регистрация: 21.12.2009
Сообщений: 2,255
29.01.2011, 08:52 4
Цитата Сообщение от Alexi2222 Посмотреть сообщение
Матерится на w
По настоящему, используя ненормативную лексику, или все-же цивильно?
ПЕРЕМЕННАЯ W должна быть описана как variant , причем по косвенным признакам описана как глобальная переменная в unit
0
124 / 124 / 24
Регистрация: 14.02.2010
Сообщений: 289
29.01.2011, 12:23 5
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
var
  Form1: TForm1;
   W:Variant;
implementation
 
uses ComObj;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
W:=CreateOleObject('Word.Application');
W.Visible:=CheckBox1.Checked;
end;
 
procedure TForm1.Button7Click(Sender: TObject);
const wdReplaceAll=2;
begin
w.Documents.add(ExtractFileDir(Application.ExeName)+'\Шаблон простого конверта.dot');
 
w.selection.Find.Text:='###индекс&';
w.selection.Find.Replacement.Text:='350049';
w.selection.Find.Execute(Replace:=wdReplaceAll);
w.selection.Find.Text:='###адрес&';
w.selection.Find.Replacement.Text:='Краснодар, ул. Севастопольская, дом 3, кв. 1230';
w.selection.Find.Execute(Replace:=wdReplaceAll);
w.selection.Find.Text:='###получатель&';
w.selection.Find.Replacement.Text:='Иванов Иван Иванович';
w.selection.Find.Execute(Replace:=wdReplaceAll);
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
W.Documents.Close;
W.Quit;
W:=UnAssigned;
end;
0
0 / 0 / 0
Регистрация: 10.12.2009
Сообщений: 23
30.01.2011, 18:16  [ТС] 6
Ругается на -> w.Documents.add(ExtractFileDir(Application.ExeName)+'\1.dot' );
Project Project1.exe raised exception class EVariantInvalidOpError with message 'Invalid variant operation'.
Если туплю извиняюсь, просто не догоняю эту тему.
0
1262 / 705 / 62
Регистрация: 21.12.2009
Сообщений: 2,255
30.01.2011, 20:17 7
Я обычно делаю это так
Delphi
1
2
W.Documents.Add(Template := 'здесь полный путь к файлу-шаблону', 
     NewTemplate:=False, DocumentType:=0);
Проблем не было
1
124 / 124 / 24
Регистрация: 14.02.2010
Сообщений: 289
30.01.2011, 22:01 8
У меня с моим вариантом проблем тоже не было!
0
0 / 0 / 0
Регистрация: 10.12.2009
Сообщений: 23
01.02.2011, 19:05  [ТС] 9
Спасибо большое!!! вроде разобрался
0
0 / 0 / 0
Регистрация: 08.06.2013
Сообщений: 70
28.10.2013, 16:18 10
Ругается на -> w.Documents.add(ExtractFileDir(Application.ExeName)+'\1.dot' );
говорит файл не найден подскажите в чём может быть проблема
0
0 / 0 / 0
Регистрация: 02.04.2014
Сообщений: 2
15.12.2014, 12:05 11
Я немогу сделать так что бы вместо определённого текста, он считывал текст с эдита. Подскажите как это сделать.
0
1262 / 705 / 62
Регистрация: 21.12.2009
Сообщений: 2,255
15.12.2014, 12:47 12
Цитата Сообщение от ostap_dm Посмотреть сообщение
он считывал текст с эдита
Он - это кто. Кто должен считывать текст "с эдита"
0
0 / 0 / 0
Регистрация: 02.04.2014
Сообщений: 2
15.12.2014, 17:37 13
Delphi
1
w.selection.Find.Replacement.Text:='350049';
вот эта строка. Но я уже разобрался с ней. Нужно было просто '350049' заменить на edit1.text
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.12.2014, 17:37

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Создание/изменение/удаление данных в Excel подключеную через ADO Delphi
Здравствуйте люди добрые. Помогите с такой ситуацией. 2 формы в delphi, на первой через ado...

DOC в Delphi
в чём ошибка? var wd:variant; begin wd:=createoleobject('word.application');...

Печать word документа через Delphi 7
Как можно через Delphi 7 распечатать word документ??? Помогите Заранее спасибо!!!

Вывод на печать doc-файла
Подскажите как вывести на печать за ранние созданный файл .doc. Если можно примером кода.


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

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

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