Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
pas666
1 / 1 / 0
Регистрация: 20.05.2013
Сообщений: 13
#1

Возможность перевода документа doc в html программно - Delphi

20.05.2013, 20:52. Просмотров 509. Ответов 2
Метки нет (Все метки)

Здравствуйте! Долго уже мучаюсь в одном вопросе, помогите кто сможет. Есть форма, в которую я ввожу данные, а они в свою очередь сохраняются в adotable. При нажатии на кнопку я записываю эти данные из adotable в документ word с помощью Закладок и сохраняю, но вывести хочу в другую форму через webbrowser (нужно программно сохранить doc в html). Использовать olecontainer для вывода doc не хочу.
Код:
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
procedure TForm3.Button9Click(Sender: TObject);
var wdBms, word: Variant;excelname : string;
 
wdDoc  : Variant;
 
begin
 
excelname:= extractfilepath(application.ExeName)+'internet.doc';
word := CreateOleObject('word.Application');
wdDoc:=word.Documents.Open(excelname);
  wdBms := wdDoc.Bookmarks;
 
   SetBmText(wdBms, 'nomer_dogovora', form2.ADOTable4.FieldByName('№_договора_Интернет').AsVariant);
  SetBmText(wdBms, 'gorod', form2.ADOTable4.FieldByName('Город').AsVariant);
  //SetBmText(wdBms, 'data', form2.ADOTable4.FieldByName('Дата_договора_Интернет').AsDateTime);
  SetBmText(wdBms, 'dolzhnost', form2.ADOTable4.FieldByName('Должность_представителя_К-Телеком').AsVariant);
  SetBmText(wdBms, 'fio_pred', form2.ADOTable4.FieldByName('ФИО_представителя_К-Телеком_в_подписи').AsVariant);
  SetBmText(wdBms, 'osnovanie', form2.ADOTable4.FieldByName('Основание_представителя_К-Телеком').AsVariant);
  SetBmText(wdBms, 'fio_kont', form2.ADOTable4.FieldByName('ФИО_контактного_лица').AsVariant);
  SetBmText(wdBms, 'tip_podkl', form2.ADOTable4.FieldByName('Тип_подключения').AsVariant);
  SetBmText(wdBms, 'indeks', form2.ADOTable4.FieldByName('Индекс').AsVariant);
  SetBmText(wdBms, 'adres', form2.ADOTable4.FieldByName('Адрес').AsVariant);
  SetBmText(wdBms, 'kvartira', form2.ADOTable4.FieldByName('Квартира').AsVariant);
  SetBmText(wdBms, 'skorost', form2.ADOTable4.FieldByName('Скорость_подключения').AsVariant);
  SetBmText(wdBms, 'edinov', form2.ADOTable4.FieldByName('Единовременная_плата_за_доступ_в_Internet').AsVariant);
  SetBmText(wdBms, 'tarif', form2.ADOTable4.FieldByName('Тарифный_план').AsVariant);
  SetBmText(wdBms, 'vpn_login', form2.ADOTable4.FieldByName('VPN-логин').AsVariant);
  SetBmText(wdBms, 'vpn_parol', form2.ADOTable4.FieldByName('VPN-пароль').AsVariant);
  SetBmText(wdBms, 'stat_login', form2.ADOTable4.FieldByName('Логин_для_статистики').AsVariant);
  SetBmText(wdBms, 'stat_parol', form2.ADOTable4.FieldByName('Пароль_для_статистики').AsVariant);
  SetBmText(wdBms, 'fio_kont1', form2.ADOTable4.FieldByName('ФИО_контактного_лица').AsVariant);
  SetBmText(wdBms, 'seria', form2.ADOTable4.FieldByName('Серия_документа').AsVariant);
  SetBmText(wdBms, 'nomer_pasporta', form2.ADOTable4.FieldByName('Номер_документа').AsVariant);
  SetBmText(wdBms, 'nazvanie_pasporta', form2.ADOTable4.FieldByName('Название_документа').AsVariant);
  SetBmText(wdBms, 'vidan', form2.ADOTable4.FieldByName('Кем_выдан_документ').AsVariant);
  SetBmText(wdBms, 'mesto_rozh', form2.ADOTable4.FieldByName('Место_рождения').AsVariant);
  SetBmText(wdBms, 'indeks_propiski', form2.ADOTable4.FieldByName('Индекс_по_прописки').AsVariant);
  SetBmText(wdBms, 'adres_propiski', form2.ADOTable4.FieldByName('Адрес_прописки_по_паспорту').AsVariant);
  SetBmText(wdBms, 'kvartira_propiski', form2.ADOTable4.FieldByName('Квартира_по_прописки').AsVariant);
  SetBmText(wdBms, 'tel_sot', form2.ADOTable4.FieldByName('Телефон_сотовый').AsVariant);
  SetBmText(wdBms, 'tel_dom', form2.ADOTable4.FieldByName('Телефон_домашний').AsVariant);
  SetBmText(wdBms, 'e_mail', form2.ADOTable4.FieldByName('e-mail').AsVariant);
  SetBmText(wdBms, 'fio_pred1', form2.ADOTable4.FieldByName('ФИО_представителя_К-Телеком_в_подписи').AsVariant);
  SetBmText(wdBms, 'fio_pred2', form2.ADOTable4.FieldByName('ФИО_предст_контр_в_подписи').AsVariant);
  SetBmText(wdBms, 'dolzhnost2', form2.ADOTable4.FieldByName('Должность_представителя_К-Телеком_в_подписи').AsVariant);
 
  wdDoc.save;
 
wdDoc.application.ActiveDocument.SaveAs(FileName:='inet.htm',FileFormat:= wdFormatHTML);//не сохраняет
 
 
word.DisplayAlerts := false;
 
word.Quit;
form9.Show;
form9.WebBrowser1.Navigate(extractfilepath(paramstr(0))+'inet.htm');
 
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.05.2013, 20:52
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Возможность перевода документа doc в html программно (Delphi):

Как отобразить данные из Doc документа в Delphi - Delphi
Мне нужно написать обучающую программу в Delphi. Структура приблизительно такая: 1)Текст 2)конечный результат 3)Решение по запросу.Как...

Перевод из DOC в HTML - Delphi
Добрый вечер, гос-да программисты. Требуется Ваша помощь. Задание выдали написать прогу на Delphi, которая переводит документы формата .doc...

Delphi - получить дату из HTML документа. - Delphi
Здравствуйте, Как получить дату создания(редактирования) - веб-страницы, Внизу страницы находится строка ("Последнее изменение этой...

Открытие html документа в word посредством delphi - Delphi
Добрый день уважаемые пользователи форума. Возникла проблема, может кто сможет подсказать решение! Имеется документ html сохраненный...

Html, как программно нажать на такую кнопку? - Delphi
подскажите пожалуйста как нажать на такую кнопку html код <a href="#" class="for-inactive extendLink button mini4 fnormal marginright5...

конвертация html-документа в doc, на основе шаблона - XML/XSL
Здраствуйте, товарищи!! Такая задача: Некая программа генерирует отчеты в html формате, причем создает html-страницы динамически на...

2
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
24815 / 16489 / 5088
Регистрация: 22.10.2011
Сообщений: 29,153
Записей в блоге: 5
20.05.2013, 21:43 #2
Цитата Сообщение от pas666 Посмотреть сообщение
//не сохраняет
Что значит "не сохраняет"? Вылетает с ошибкой, или что? Или просто файл записывается не туда, куда тебе бы хотелось? (Ведь при открытии doc-файла ты явно указываешь extractfilepath(application.ExeName), почему то же самое не сделать и при сохранении htm-а?)
1
pas666
1 / 1 / 0
Регистрация: 20.05.2013
Сообщений: 13
23.05.2013, 21:43  [ТС] #3
Спасибо огромное!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.05.2013, 21:43
Привет! Вот еще темы с ответами:

Создание HTML документа программно - PHP
Всем доброго времени суток. Интересует один вопрос связанный с php. Можно ли программно, вытащить данные с бд и создать в указанной...

Какими средствами написать конвертер DOC-HTML, HTML-DOC - Java SE
Доброе время суток. Необходимо написать конвертер DOC-HTML, HTML-DOC. Как это сделать, ума не приложу. Есть идея использования регулярных...

Конвертация html в doc и doc в html или rtf - PHP
Здравствуйте. Есть необходимость конвертировать на сервере текст из doc-файла в html, хранящийся в базе данных, и обратно. Ни одного...

Возможность перевода игрового движка c# на c++ - C++
У меня вопрос:). Делаем с другом игровой движок. Точнее делаем редактор к портированому на c# графическому движку ogre. Вопрос: Если мы все...


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

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

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