Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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;

после этого создаю таблицы в 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.003 c
1-1283231923
Элия
2010-08-31 09:18
2012.01.29
Как определить виден ли скролл. ListView.


2-1318575654
Laguna
2011-10-14 11:00
2012.01.29
Добавление в БД и извлечение картинки JPG


2-1319248809
inspiring
2011-10-22 06:00
2012.01.29
В TreeView из TTable.


2-1318992459
Gu
2011-10-19 06:47
2012.01.29
добавить время


15-1318451402
Юрий
2011-10-13 00:30
2012.01.29
С днем рождения ! 13 октября 2011 четверг





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский