Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

Экспорт из Paradox в Word   Найти похожие ветки 

 
Fuelfire   (2003-06-03 16:16) [0]

Доброго времени суток! Столкнулся с такой проблемой: есть главное меню. В нем пункт "Сохранить". В диалоговом окне надо выбрать расширение (xls или doc), указать имя файла и путь...
В эксель все сбрасывается нормально..С Вордом какая-то заморочка: не могу закрыть и сохранить файл программно.
В экселе, например, это делается так:
O.ActiveWorkbook.Close(true,String(SaveDialog1.FileName));
O:=null;
В ворде пытаюсь сделать по аналогии:
O.ActiveDocument.Close(true,String(SaveDialog1.FileName));
Но получаю ошибку....И еще: как различать, какое расширение выбрано для запуска соответствующей функции эскпортирования и на какое событие надо вешать? Может кто-то делал подобное? Заранее благодарен...


 
NickBat ©   (2003-06-03 16:21) [1]

Какую ошибку? Зачем файл Парадокса (таблица) экспортировать в текстовый редактор Ворд? Какой функции экспортирования? Какой программы?


 
Fuelfire   (2003-06-03 16:29) [2]

Мне надо перенести данные из таблицы Paradox в Word.
Ошибка: EOLEError with message "Method "ActiveDocuments" not supported by automation object".
У меня написаны две функции экспортирования, которые я вызываю при сохранении файла (в зависимости от расширения):
procedure TForm8.WordExp(Sender: TObject);
begin
O:=CreateOleObject("Word.Application");
O.DisplayAlerts:=false;
O.Visible:=False;
O.Documents.Add;
N:=1;
while not DataModule2.Table.eof do
begin
O.Selection.TypeParagraph;
O.Selection.TypeText(DataModule2.Games.FieldByName("Name").AsString);
DataModule2.Table.Next;
Inc(N);
end;
O.ActiveDocuments.Close(true,String(SaveDialog1.FileName));
O:=null;
end;


 
Соловьев ©   (2003-06-03 16:33) [3]


> Fuelfire (03.06.03 16:29)

я когда что-то такое делаю, то запускаю Word(Excel) и там запускаю запись макроса. Потом делаю что надо. Останавливаю запись. И смотрю что мне там написал VB. И потом это переношу в Delphi. Правда есть нюансы и тут. Но в большенстве случаев прокатывает.



Страницы: 1 вся ветка

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
1-84182
den
2003-06-11 23:30
2003.06.26
TPanel


3-84012
softmaster
2003-05-30 17:25
2003.06.26
Трабл с LOOKUP полем.


14-84703
kull
2003-06-04 18:36
2003.06.26
А кто знает какие системы регистрации багов?


1-84386
killer
2003-06-05 17:08
2003.06.26
Можно ли какнибудь в одном файле сохранить текст фотографии?


14-84698
Vlad Oshin
2003-06-05 11:15
2003.06.26
А помните? ..И ему было только 16 лет!?!