из ehlib в word

[kate158]

как экспортировать таблицу ehlib в ворд? причем добавить шапку перед таблицей?
меня интересует именно цикл по ehlib

procedure TForml.ButtonllCllck(Sender: TObject);
var table_:variant;
Row_,Column_:integer;
begin
// Создаем новый документ по шаблону
W.documents.Add(ExtractFileDir(Application.ExeName)+
'\Шаблон счета-фактуры.dot');
W.Selection.InsertRows(2-1);//как здесь определить сколько у меня строк?
// Формируем первую строку табличной части документа.
table_.Cell(Row_,Column_+0).Range.Text:='KOVRIC TRIVEL RUG';
table_.Cell(Row_,Column_+1).Range.Text:='шт';
table_.Cell(Row_,Column_+2).Range.Text:='l';
// Формируем вторую строку табличной части документа.
Inc(Row_);

[Аватар]

Цикл по колонкам

  for i:=0 to DBGridEhEvent.Columns.Count-1 do begin
    DBGridEhEvent.Columns[i].Title.Caption - заголовок колонки
    DBGridEhEvent.Columns[i].Field - TField колонки

+цикл по записям DataSet

[kate158]

почему у меня не создается пустая таблица?

  w.activedocument.tables.add(range:=MyRange,Numrows:=(dbgrideh5.columns.count),Numcolumns:=4);

[artemavd]

Зачем какие-то циклы мутить, когда в DBGridEh можно одной строкой кода сделать экспорт и т.п.? Вот так например можно экспортировать DBGridEh в том виде, в каком ты его видишь в RTF файл (который можно без проблем открыть в MS Word):

uses DBGridEhImgExp;
...
procedure TForm5.sButton1Click(Sender: TObject);
begin
 SaveDBGridEhToExportFile(TDBGridEhExportAsRTF,Form5.DBGridEh1,'C:\1.rtf',True);
end;

и т.д. Можно экспортировать в TXT, XLS, HTML, CSV...

[Stilet]

в RTF файл

Есть в этом небольшие проблемки - если заказчику нужно заполнить по шаблону, то ничто типа RTF тут не поможет. Я с таким сталкивался, когда выгружал спецификации сборок и узлов.

причем добавить шапку перед таблицей?

Создаешь в Ворде шаблон (DOT файл), в котором рисуется шапка, подножье, фоновая разметка.
Далее примерно так:
Открываем новый док на основе шаблона

 try WordApp:=CreateOleObject('Word.Application');except exit; end;
 WordDoc:=WordApp.documents.add('Шаблон_КС2.dot');

Допустим в нем уже нарисованна заготовочная таблица из одной строки (к примеру)

WordTable := WordDoc.Tables.Item(1);

получаем ссылку на эту таблицу

И Вносим в нее новые строки:

WordRow:=WordTable.Rows.Add;
      WordTable.Cell(WordRow.Index, 1).Range.Text :=('Формат');
      WordTable.Cell(WordRow.Index, 2).Range.Text :=('Зона');
      WordTable.Cell(WordRow.Index, 3).Range.Text :=('Позиция');
      WordTable.Cell(WordRow.Index, 4).Range.Text :=('Применяемость')
      WordTable.Cell(WordRow.Index, 5).Range.Text :=('Наименование');
      WordTable.Cell(WordRow.Index, 6).Range.Text :=('Штуки');
      WordTable.Cell(WordRow.Index, 7).Range.Text :=('Примечание');

Это я к примеру - вносится новая строка, в колонках которой (колонки нарисованы в шаблоне)
прописываются некие значения.

[kate158]

спасибо, друзья, за помощь. вопрос начинает проясняться.
как в моем коде

var
MsWord,Table, MyRange:Variant;
i,j:integer;
begin
try MsWord:=CreateOleObject('Word.Application');except exit; end;
MsWord.Documents.Add('C:\Temp\shablon.dot');
MsWord.Visible:=False;
MyRange:=MsWord.ActiveDocument.Range(MsWord.ActiveDocument.Range.End-1,
MsWord.ActiveDocument.Range.End-1);
MsWord.ActiveDocument.Tables.Add(MyRange,
dm.people_who_send.RecordCount, dm.people_who_send.FieldCount);
MsWord.ActiveDocument.Tables.Add(MsWord.ActiveDocument.Range,
dm.people_who_send.RecordCount, dm.people_who_send.FieldCount);
Table:=MsWord.ActiveDocument.Tables.Item(1);
Table.Style:='Сетка таблицы';
dm.people_who_send.First;
for i:=0 to dm.people_who_send.RecordCount-1 do
begin
for j:=0 to dm.people_who_send.FieldCount-1 do
Table.Cell(i+1,j+1).Range.InsertBefore(dm.people_who_send.Fields[j].AsString);// здесь вылазит ошибка
dm.people_who_send.Next;
MsWord.Visible:=True;

исправить ошибку

[Stilet]

у меня затирается весь шаблон и таблица появляется в начале..

Ты мой пост внимательно читала?
Ты используешь:

MsWord.documents.open('C:\Temp\shab lon.doc');

Я использую:

WordDoc:=WordApp.documents.add('Шаб лон_КС2.dot');

то вылезает ошибка

На какой строке?

[kate158]

Сообщение от Stilet

На какой строке?

исправила

MyRange:=MsWord.ActiveDocument.Range(MsWord.ActiveDocument.Range.End-1,
MsWord.ActiveDocument.Range.End-1);

[Stilet]

W.

Это что за переменка?
Есче раз внимательненько читай мой пост - WordApp.documents.add возвращает результат

[kate158]

читаю.
теперь на строке

Table.Cell(i+1,j+1).Range