Delphi 7 и Office 2003 [D7, WinXP]
Serg1981 © (2007-01-27 12:07:00)
Здравствуйте!
Я вывожу из 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:00) [1]
WordApplication.Visible := true в конце ставить надо
Наверх 
ЧАТ |
Орешник |
|
