Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Вставка таблицы

Автор: DYUMON 25.2.2007, 20:23

В программе использую таблицу а прога выводит отчёт в ворд так надо в ворд вставить таблицу.
я делаю

Код


var 
 numstr: OleVariant;//peremennaa nomer str
 numf: OleVariant;
begin
numstr:= wdAlignPageNumberCenter;
numf:= wdHeaderFooterFirstPage;
wordapplication1.Selection.HeaderFooter.PageNumbers.Add(numstr,numf) ;
end

на васике это выглядит
Selection.Sections(1).Headers(1).PageNumbers.Add PageNumberAlignment:= _
wdAlignPageNumberCenter, FirstPage:=False
вроде пробовал всяко
либо на проверке выдаётся ошибка
либо потом приложение падает.

Автор: Remember 25.2.2007, 21:32

Код


var
  table: variant;
...........
begin
........
W:=CreateOleObject('Word.Application'); // Создаёт объект Word
W.Visible:=true; // Делает Word невидимым
W.Documents.Add; // Добавляет документ

W.Documents.Item(1).Activate; // делает активным файл отчёта
W.ActiveDocument.Tables.Add(Range:=MyRange, NumRows:=nr{количество рядов}, NumColumns:=nc{количество столбцов}); // Добавляет таблицу
Table := W.ActiveDocument.Tables.Item(1); // Присваевает имя таблицу с отчётом
...........
end.

Я вот таким образом вставляю таблицы..

Автор: Albinos_x 27.2.2007, 17:20

http://forum.vingrad.ru/topic-84634.html