закладки + таблица в word

[undead92]

Привет! нашел примеры по кускам, но конкретного не нашел.
Нужно создать счет на основе образца (прикрепил), данные будут заменятся путем закладки в этом документе из dbgrid и edit, проблема далее в том что есть таблица, а в ней нефиксированное количество строк, то есть я могу ввести один edit, должна быть 1 строка, два эдита - 2 строки и тд.

Кто-нибудь может пример скинуть, на делфи много программ есть по учету.

[undead92]

непонятно например лучше всю таблицу строить, или только заполнять готовую в шаблоне, но как тогда добавлять еще строк?

[FaTaL]

В образце создаёшь нужную таблицу, а потом средствами WORD'а добавляешь туда строки.
Например так
ActiveDocument.Tables.Item(номер таблицы).Rows.Add;

[undead92]

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

В образце создаёшь нужную таблицу, а потом средствами WORD'а добавляешь туда строки.
Например так
ActiveDocument.Tables.Item(номер таблицы).Rows.Add;

а как определить какое количество строк ей дописать в word, глядя на dbgrid

[FaTaL]

Столько сколько в DBGrid. Свойство Count

[undead92]

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

Столько сколько в DBGrid. Свойство Count

это понятно, я имел ввиду можно строчку кода показать которая именоо добавляе в ворд не фиксированное количество строк

[FaTaL]

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

это понятно, я имел ввиду можно строчку кода показать которая именоо добавляе в ворд не фиксированное количество строк

Чуть выше дал же код я. Что мешает его запустить в цикле от 0 до кол-ва строк ДБГрида - 1?

[undead92]

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

[Аватар]

Rows.Add

Обычно бывают методы типа Insert - вставка строки в нужную позицию. Вот и поискать такой или подобный метод

[undead92]

блин, закладки без проблем меняются, компилятор не ругается, но когда формируется ворд выдает ошибку variant и с таблицей ничего не происходит, подскажите пожалуйста в чем ошибка

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    SaveDialog1: TSaveDialog;
    strngrd1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  ComObj;

function SetBmText(var aBms : Variant; const aBmName, aText : String) : Boolean;
var
  Bm, Rng : Variant;
begin
  //Проверяем - существует ли закладка с заданным именем.
  Result := aBms.Exists(aBmName);
  //Если закладка не найдена - выходим.
  if not Result then Exit;

  //Ссылка на закладку.
  Bm := aBms.Item(aBmName);
  //Ссылка на диапазон, связанный с закладкой.
  Rng := Bm.Range;
  //Удаление закладки.
  Bm.Delete;
  //Заменяем текст в диапазоне.
  Rng.Text := aText;
  //Добавляем новую закладку с таким же именем.
  aBms.Add(aBmName, Rng);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  wdApp, wdDocs, wdDoc, wdBms,w,table : Variant;
  Sd : TSaveDialog;
   WordApp, NewDoc, WordTable: OLEVariant;
 iRows, iCols, iGridRows, jGridCols, Res : Integer;
  FileNameTemplate, Path : String;
begin
  Sd := SaveDialog1;
  Path := ExtractFilePath(ParamStr(0));
  if Sd.InitialDir = '' then Sd.InitialDir := Path + 'Documents\';
  Sd.Title := 'Задайте имя файла нового документа';
  if not Sd.Execute then Exit;
  if not FileExists(Sd.FileName) then begin
    Res := MessageBox(
      0
      ,'Файл с заданным уже существует. Перезаписать?'
      ,'Внимание!'
      ,MB_YESNO + MB_ICONQUESTION + MB_APPLMODAL
    );
    if Res = IDNO then Exit;
  end;
  try
    wdApp := CreateOleObject('Word.Application');
  except
    ShowMessage('Не удалось запустить MS Word. Действие отменено.');
    Exit;
  end;

  //Полное имя файла шаблона.
  FileNameTemplate := Path + 'Templates\счет.dot';

  //Делаем видимым окно MS Word.
  wdApp.Visible := True;
  //Ссылка на коллекцию документов.
  wdDocs := wdApp.Documents;
  //Создаём документ на основе шаблона.
  wdDoc := wdDocs.Add(Template:=FileNameTemplate);
  //Подключаемся к коллекции закладок.
  wdBms := wdDoc.Bookmarks;
  //Ищем закладки с нужными именами и изменяем их текст, в соответствие
  //с данными, введёнными на форме.
  SetBmText(wdBms, 'bank', Edit1.Text);
  SetBmText(wdBms, 'bik', Edit2.Text);
  SetBmText(wdBms, 'schet', Edit3.Text);
  SetBmText(wdBms, 'name', Edit4.Text);
  SetBmText(wdBms, 'gruzo', Edit5.Text);




 WordTable := wdApp.activedocument.Tables.Item(1).Rows.Add(W.ActiveDocument.Range, strngrd1.RowCount, strngrd1.ColCount);


    
for iGridRows := 1 to iRows do
   for jGridCols := 1 to iCols do
     WordTable.Cell(iGridRows, jGridCols).Range.Text :=
      strngrd1.Cells[jGridCols - 1, iGridRows - 1];







end;

end.