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

[FaTaL]

Какую ошибку выдаёт?

[undead92]

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

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  ComObj;

procedure TForm1.Button1Click(Sender: TObject);
const
  BmName = 'TABLE_1';
var
  wdApp, wdDocs, wdDoc, wdBms, wdBm, wdRng, wdTbls, wdTbl, wdRow : Variant;
  i, j, Cnt : Integer;
  iRows, iCols, iGridRows, jGridCols: Integer;
  Path : String;
  Od : TOpenDialog;
begin
  Od := OpenDialog1; //OpenDialog1 уже должен быть на форме.
  Path := ExtractFilePath(ParamStr(0));
  if Od.InitialDir = '' then Od.InitialDir := Path + 'docs\';
  Od.Title := 'Выберите файл документа';
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    MessageBox(0, 'Файл с заданным именем не найден. Действие отменено.'
      ,'Внимание!', MB_OK + MB_ICONEXCLAMATION + MB_APPLMODAL);
    Exit;
  end;
  try
    wdApp := CreateOleObject('Word.Application');
  except
    MessageBox(0, 'Не удалось запустить MS Word. Действие отменено.'
      ,'Внимание!', MB_OK + MB_ICONERROR + MB_APPLMODAL);
    Exit;
  end;

  //Делаем видимым окно MS Word.
  wdApp.Visible := True;
 // wdDoc := wdApp.Documents.Add;
  //Ссылка на коллекцию документов.
  wdDocs := wdApp.Documents;
  //Открываем документ.
  wdDoc := wdDocs.Open(FileName:=Od.FileName);
  //Подключаемся к коллекции закладок.
  wdBms := wdDoc.Bookmarks;
  //Проверяем, есть ли в документе закладка с заданным именем.
  if not wdBms.Exists(BmName) then begin
    MessageBox(0, 'В документе нет закладки с именем "' + BmName + '". Действие отменено.'
      ,'Внимание!', MB_OK + MB_ICONEXCLAMATION + MB_APPLMODAL);
    Exit;
  end;

  //Ссылка на закладку.
  wdBm := wdBms.Item(BmName);
  //Ссылка на диапазон, связанный с закладкой.
  wdRng := wdBm.Range;
  //Удаление закладки.
  wdBm.Delete;

  //Ссылка на коллекцию таблиц.
  wdTbls := wdDoc.Tables;
  //Определеляем, какой таблице принадлежит диапазон закладки.
  wdTbl := Unassigned;
  for i := 1 to wdTbls.Count do
    if wdRng.InRange(wdTbls.Item(i).Range) then begin
      wdTbl := wdTbls.Item(i);
      Break;
    end;
  if VarIsClear(wdTbl) then begin
    MessageBox(0, 'Закладка с именем "' + BmName + '" не принадлежит таблице.'
      + ' Действие отменено.', 'Внимание!', MB_OK + MB_ICONEXCLAMATION + MB_APPLMODAL);
    Exit;
  end;

  //Ищем в таблице первую пустую строку.
  wdRow := Unassigned;
  for i := 1 to wdTbl.Rows.Count do begin
    //В конце текста ячейки всегда имеются два специальных символа, обозначающих
    //границу ячейки. Поэтому, если длина текста ячейки равна 2, то эта ячейка пустая.
    j := 1;
    Cnt := wdTbl.Rows.Item(i).Cells.Count;
    while
      (j <= Cnt)
      and (Length(wdTbl.Rows.Item(i).Cells.Item(j).Range.Text) = 2)
    do Inc(j);
    //Если j > Cnt, значит, все ячейки в строке пустые (т. е., мы нашли пустую строку).
    if j > Cnt then begin
      wdRow := wdTbl.Rows.Item(i);
      Break;
    end;
  end;

   iCols := StringGrid1.ColCount;
         iRows := StringGrid1.RowCount;

  //Если пустых строк нет, то добавляем в таблицу новую строку.
  if VarIsClear(wdRow) then wdRow := wdTbl.Rows.Add;

  //Проверка формата строки.
  if wdRow.Cells.Count < 6 then begin
    MessageBox(0, 'В целевой строке таблицы недостаточно ячеек. Действие отменено.',
      'Внимание!', MB_OK + MB_ICONEXCLAMATION + MB_APPLMODAL);
    Exit;
  end;

  //Записываем в строку данные из программы.
 { wdRow.Cells.Item(1).Range.Text := Edit1.Text;
  wdRow.Cells.Item(2).Range.Text := Edit2.Text;
  wdRow.Cells.Item(3).Range.Text := Edit3.Text;
  wdRow.Cells.Item(4).Range.Text := Edit4.Text;
  wdRow.Cells.Item(5).Range.Text := Edit5.Text;
  wdRow.Cells.Item(6).Range.Text := Edit6.Text;

                                        }


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


  //Теперь, в верхней левой ячейке таблицы вновь определяем закладку.
  wdBms.Add(BmName, wdTbl.Rows.Item(1).Cells.Item(1).Range);

  //Если требуется, сохраняем документ.
  //wdDoc.Save;
  //Если требуется, закрываем MS Word.
  //wdApp.Quit;
end;

end.

[FaTaL]

1) Я Вам писал как добавить строки,а не заменять.
3) Сохраняйте не открытый документ, а в другой файл и ничего не будет заменяться.

[eval]

надо не документ редактировать, а на основании шаблона делать

[undead92]

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

1) Я Вам писал как добавить строки,а не заменять.
3) Сохраняйте не открытый документ, а в другой файл и ничего не будет заменяться.

вы читали код? if VarIsClear(wdRow) then wdRow := wdTbl.Rows.Add;

строки если и добавляются, то затирают всю остальную таблицу



3) пользователь может не нажать сохранить как

[FaTaL]

Посмотрел ваш Obrazec.doc и очумел. У Вас весь шаблон как единная таблица! Зачем так делать? Разбейте свой шаблон на несколько таблиц и будет Вам счастье.
Там Вам всего то надо 2 таблицы.

[undead92]

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

Посмотрел ваш Obrazec.doc и очумел. У Вас весь шаблон как единная таблица! Зачем так делать? Разбейте свой шаблон на несколько таблиц и будет Вам счастье.
Там Вам всего то надо 2 таблицы.

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

[undead92]

вот, прикрепил обновленный,сделал 1 пустую строку, все равно по ее заполнению, заменяются старые

[undead92]

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

[FaTaL]

Добавляй после нужной строки, а не с начала таблицы.