Форум: "Основная";
Текущий архив: 2007.04.29;
Скачать: [xml.tar.bz2];
ВнизDelphi 7 и Office 2003 Найти похожие ветки
← →
Serg1981 © (2007-01-27 12:07) [0]Здравствуйте!
Я вывожу из Delphi 7 в Word некоторый текст, картинки и т.д. Подключены модули WordXP и тому подобные. Всё нормально работает при выводе в WordXP, а при выводе в Word2003 ничего не происходит (Word не открывается). Как исправить ошибку ?
Заранее спасибо!...
private
WordApplication: TWordApplication;
WordDocument: TWordDocument;
end;
...
Procedure TForm1.CreateWordDocument;
begin
If not Assigned(WordApplication) then
begin
OLeInitialize(nil);
WordApplication := TWordApplication.Create(Self);
WordApplication.OnQuit := WordApplicationQuit;
WordApplication.Connect;
WordApplication.Visible := False
end
end;
...
Procedure TForm1.ExpToWord;
begin
CreateWordDocument;
try
WordApplication.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
if not Assigned(WordDocument) then
begin
WordDocument := TWordDocument.Create(Self);
WordDocument.OnClose := WordDocumentClose
end;
with WordDocument do
begin
ConnectTo(WordApplication.ActiveDocument);
with Paragraphs.Item(1) do
begin
Range.InsertAfter(...);
Alignment := wdAlignParagraphLeft;
Range.Font.Size := 14;
Range.Bold := wdInsertedTextMarkBold;
Range.InsertParagraphAfter
end;
...
← →
Sicilla © (2007-03-03 16:47) [1]WordApplication.Visible := true в конце ставить надо
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2007.04.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.069 c