Форум: "Начинающим";
Текущий архив: 2012.01.29;
Скачать: [xml.tar.bz2];
ВнизСоздание таблиц в 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;
после этого создаю таблицы в Wordfunction 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.003 c