Текущий архив: 2012.01.29;
Скачать: CL | DM;

Вниз

Создание таблиц в MS Word   Найти похожие ветки 

← →
lewka ©   (2011-10-21 14:35) [0]

Привет!!!
создаю документ в Word таким кодом
MsWord:= CreateOleObject("Word.Application");
  MsWord.Visible := true;
  except begin
  Showmessage("MS Word");exit;
  end; end;
 MsWord.Documents.Add;
 MSWord.ActiveDocument.PageSetup.TopMargin:=57;
  MSWord.ActiveDocument.PageSetup.BottomMargin:=57;
  MSWord.ActiveDocument.PageSetup.RightMargin:=57;
  MSWord.ActiveDocument.PageSetup.LeftMargin:=71;
  MSWord.Selection.font.name:="Times New Roman";
  MSWord.Selection.ParagraphFormat.FirstLineIndent:=35;
  MSWord.Selection.ParagraphFormat.LineSpacing:=18;
  MSWord.ActiveDocument.AutoHyphenation := True;
  MSWord.ActiveDocument.HyphenateCaps := True;
  MSWord.ActiveDocument.HyphenationZone:=11;
  MSWord.Selection.font.Size:=16;
после этого создаю таблицы в Word
function Paste_table(row_,col_:integer):integer;
begin
MyRange:=MSWord.ActiveDocument.Range(MSWord.ActiveDocument.Range.End-1,MSWord.ActiveDocument.Range.End-1);
MSWord.ActiveDocument.Tables.Add(Range:=MyRange, NumRows:=row_, NumColumns:=col_,defaulttablebehavior:=true);
num_tabl:=num_tabl+1;
end;
из TStringgrid отправляю данные в эти таблицы
for row:=0 to form2.StringGrid2.RowCount do
for col:=0 to 3 do
MsWord.ActiveDocument.Tables.Item(num_tabl).cell(row+1,col+1).Range.Text:=form2.StringGrid2.cells[col,row];
end;
естественно таблицы создаются тоже в цикле.

и вот проблема: Если при создании документа Word делать его видимым (MsWord.Visible := true;), то все отлично работает, но если делать его видимым в самом конце работы (т.е. после выполнения всех действий) то возникает где то по средине заполнения документа возникает ошибка "Запрашиваемый номер таблицы не найден".При этом документ еще не показывается.
Подскажите в чем дело.

---

← →
YurikGL ©   (2011-10-22 20:20) [1]

Сначала вставь данные, а потом преобразуй в таблицу. Пример тут
http://www.delphimaster.ru/articles/dbtoword/index.html

---

← →
lewka ©   (2011-10-24 01:39) [2]

> Сначала вставь данные, а потом преобразуй в таблицу.

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

---

Страницы: 1 вся ветка

Текущий архив: 2012.01.29;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.008 c