Форум: "Основная";
Текущий архив: 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.44 MB
Время: 0.423 c