Вывод данных в MS word в нужном порядке

[leejack]

Добрый день, уважаемые форумчане!
Появилась непонятная проблема с выводом информации в ворд

Вообщем мне нужно вывести заголовок а за ним таблицу с данными
Но ничего не выходит. Свеже созданная таблица автоматически появляется сверху( выводил в разном порядке-итог один, ниже код, он уже модернизирован и 100 раз изменен((

procedure TForm1.Button4Click(Sender: TObject);
  var
      i, j : integer;
      wdApp, wdDoc, wdRng : Variant;
      TableReport : Table;
      TableRange : range;
begin
  //-------------Создаем ворд документ--------------
  try
    wdApp := CreateOleObject('Word.Application');
    //msWord.ActiveDocument.PageSetup.Orientation :=1;
  except
    ShowMessage('Не могу запустить Microsoft Word');
  end;
  //------------------------------------------------
  wdApp.Visible := True;
  //Создаём новый документ.
  wdDoc := wdApp.Documents.Add;
  //Отключение перерисовки окна MS Word. - Для ускорения работы.
  wdApp.ScreenUpdating := False;
  try
    wdRng := wdDoc.Range;
    wdApp.ActiveDocument.PageSetup.Orientation :=1;
 
    //Первый текст.
    wdRng.InsertBefore('Отчет по судебным делам по состоянию на дату  ' + DateTimeToStr(Now));
    wdRng.Font.Name := 'Times New Roman';
    wdRng.Font.Bold := True;
    wdRng.Font.Size := 20;
    //Выравнивание по центру.
    wdRng.ParagraphFormat.Alignment := wdAlignParagraphCenter;
    //Добавляем перевод строки.
    wdRng.InsertAfter(#13#10#13#10);
 
    //Формируем новый диапазон непосредственно за текущим диапазоном.
    wdRng.Start := wdRng.End;
    //Сброс параметров параграфа.
    wdRng.ParagraphFormat.Reset;
    //Сброс параметров шрифта.
    wdRng.Font.Reset;
    //Добавляем два перевода строки.
 
    except
    end;
 
 
    wdApp.ActiveDocument.Tables.Add (wdApp.Selection.Range, DataModule2.ADOQuery1.RecordCount+1 , DBGrid1.Columns.Count);
    wdApp.ScreenUpdating := True;

[leejack]

Неужели нет ни одной идеи?(

[Человек_Борща]

Шаблон в RTF решает проблему и полного отсутствия MS Word и не убирает все красоты документа.

[leejack]

Ну шаблон это одно, мне нужно именно файл ворд с нуля создать. И не таскать за собой шаблоны. Еще варианты?

[Человек_Борща]

Копать в строну VBA и пробовать что называется "из коробки".
И так, у вас есть таблица. Таблица это 2 части - горизонтальная шапка, она статическая. Пишем её 1 раз. Данные таблицы - динамическая часть.

Вот и делайте таким алгоритом:
Создаем файл
Пишем заголовок таблицы
<Цикл по строкам таблицы>
профит.

[Samkoff]

Может быть поможет, у меня немного другая задача, я опрашиваю все таблицы программы и все это дело печатаю в ворд.
Эта процедура висит на кнопке.

procedure TForm1.N12Click(Sender: TObject);
begin
//создаем документ
  try
    wdApp := CreateOleObject('Word.Application');
    wdApp.Visible := True;
  except
    ShowMessage('Не удалось запустить MS Word. Действие отменено.');
    Exit;
  end;

    //Делаем видимым и активным окно MS Word.
    wdApp.Visible := true;
    wdApp.Activate;

    //Ссылка на коллекцию документов.
    wdDocs := wdApp.Documents;
    wdDoc := wdDocs.Add;
    wdDoc.Range.InsertAfter('Парсинг 1  ');
    Parsing := 1;
    Analysis.Button1.Click;
    ExpToWord (Analysis.MStringGrid1);
    Analysis.Button2.Click;
    ExpToWord (Analysis.MStringGrid1);
    wdDoc.Range.InsertAfter('Парсинг 2  ');
    Parsing := 2;
    Analysis.Button1.Click;
    ExpToWord (Analysis.MStringGrid1);
    Analysis.Button2.Click;
    ExpToWord (Analysis.MStringGrid1);
....

    wdApp := Unassigned;
    wdDocs := Unassigned;
    wdDoc := Unassigned;

А вот эта процедура рисует в ворде. Все таблицы у меня друг за другом.

procedure ExpToWord (SG: TStringGrid);
var
  wdTable: OLEVariant;
  Row, Col: Integer;
begin
    wdApp.Selection.Font.Size := 12;
    wdApp.Selection.Font.Name  := 'Times New Roman';

    //создание таблицы
    wdTable := wdDoc.Tables.Add(
      Range:=wdDoc.Range.Characters.Last,
      NumRows:=SG.RowCount,
      NumColumns:=SG.ColCount);
      wdDoc.Range.InsertAfter(#13);


  for Row := 1 to SG.RowCount do
    for Col := 1 to SG.ColCount do
        wdTable.Cell(Row, Col).Range.Text := SG.Cells[ Col-1, Row-1 ];

  wdTable.Borders.Enable := true;
  wdApp.ActiveDocument.Tables.Item(1).AutoFitBehavior(wdAutoFitContent);
  wdApp.ActiveDocument.Paragraphs.SpaceAfter := 0;
  wdApp.ActiveDocument.Paragraphs.SpaceBefore := 0;

end;

Надеюсь поможет

[phomm]

Пользуемся поиском по форуму, обсуждалось много раз, вариантов много. Например, мой пост в теме, создание таблицы с нуля:
http://programmersforum.ru/showthread.php?t=258035