Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Вниз

WordApplication 


Марина   (2002-02-04 13:51) [0]

Есть Word-овская таблица,созданная с помощью WordApplication.Подскажите, пожалуйста, как программно вставить значения в ячейки этой таблицы? Заранее спасибо.



drpass   (2002-02-04 14:26) [1]

Вот такой код создает по шаблону документ (шаблон с таблицей) и заносит значения в пару ячеек
app:=CreateOleObject("Word.Application");
app.Visible:=true;
doc:=app.Documents.Add(Params.Template);
doc.Tables.Item(1).Cell(2,1).Select;
Sel:=app.Selection;
Sel.TypeText(MaskEdit1.Text);
Sel.MoveRight(wdCell, 1);
Sel.TypeText(Params.RegCod);



fag2000@ok.ru   (2002-02-04 14:27) [2]

Через Cell.
Пример есть в помоши по VBA в Word.



skiph   (2002-02-05 06:14) [3]

Не везде такой код пройдет. Другой способ - поставить курсор в нужное место (процедуры MoveLeft, MoveRigth, MoveDown, MoveUp) и вставить текст (TypeText). Способ кривоватый, но работает везде.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.015 c
14-66664          Polomnik              2002-01-02 22:42  2002.02.21  
Delphi для Чайника


1-66588           HDD                   2002-02-05 16:23  2002.02.21  
Помогите пожалуйста.


1-66508           UnDISCOvery           2002-02-04 16:54  2002.02.21  
Уважаемые ! Объясните разницу, плиз !


7-66699           l@z@                  2001-11-17 15:38  2002.02.21  
Люди Help!!! Необходимо запретить доступ к Файлу. Запретить чтение, копирование


1-66573           Basilio               2002-02-05 16:06  2002.02.21  
Динамические массивы