Создание таблиц в 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

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

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

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