| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Запись в таблицу через сервер Word
TruthMan © (2005-10-18 10:38:00)Помогите, пожалуйста, заполнить таблицу. Никак не могу найти свойство, позволяющее обратиться к конкретной ячейке. Таблица без проблем создается при помощи команды
WordDocument1.Tables.Add(WordApplication1.Selection.Range, Number, 2, EmptyParam, EmptyParam);
А вот как быть дальше не знаю.
TruthMan (2005-10-20 09:38:00) [1]Вот как надо было:
var
un_Var, ex_Var, count : OleVariant
...............................................
WordApplication1.Selection.MoveRight(un_Var, count, ex_Var);
Так что билет мне до Бобруйска, в один конец :))
TruthMan (2005-10-19 11:25:00) [2]Спасибо, но пробовал ставить и wdMove и wdExtend. Выдает ошибку Types of actual and formal var parameters must be identical. Используемая команда
WordApplication1.Selection.MoveRight(wdCell, 1, wdMove);
YurikGL (2005-10-18 22:19:00) [3]Вообще-то с таблицами лучш всего работать через ConvertToTable
umbra (2005-10-18 17:54:00) [4]
> Что это за параметр Extend, который надо третьим указать?
Extend Optional Variant. Can be either wdMove or wdExtend. If wdMove is used, the selection is collapsed to the end point and moved to the right. If wdExtend is used, the selection is extended to the right. The default value is wdMove.
Все это написано в справке по ворду, раздел "Cправка по Visual Basic"
TruthMan (2005-10-18 17:16:00) [5]C этим разобрался, но возник другой вопрос. Как выделить следующую ячейку? Пишу WordApplication1.Selection.MoveRight(wdCell, 1, ?). Что это за параметр Extend, который надо третьим указать?
umbra (2005-10-18 16:54:00) [6]
> А как перенести это в Delphi не знаю.
uses Word97; //чтобы делфи понимал имена констант, если ворд другой - другой
// модуль прописать. Они все в папке делфи ocx\servers\
var
table: variant;
{........................................}
table := WordDocument1.Tables.Add(WordApplication1.Selection.Range, Number, 2, EmptyParam, EmptyParam);
table.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter;
{...................................................}
table := Unassigned;
TruthMan (2005-10-18 14:59:00) [7]Не все удается перенести. Например неясно как выделить все таблицу и задать выравнивание для всех ячеек по центу. В VB это Selection.Tables(1).Select
Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter. А как перенести это в Delphi не знаю.
evvcom (2005-10-18 11:03:00) [8]А ты макрос запиши, а потом текст в VB-редакторе подсмотри.
| |
