Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: CL | DM;

Вниз

Запись в таблицу через сервер Word   Найти похожие ветки 

 
TruthMan   (2005-10-18 10:38) [0]

Помогите, пожалуйста, заполнить таблицу. Никак не могу найти свойство, позволяющее обратиться к конкретной ячейке. Таблица без проблем создается при помощи команды WordDocument1.Tables.Add(WordApplication1.Selection.Range, Number, 2, EmptyParam, EmptyParam);
А вот как быть дальше не знаю.


 
evvcom ©   (2005-10-18 11:03) [1]

А ты макрос запиши, а потом текст в VB-редакторе подсмотри.


 
TruthMan   (2005-10-18 14:59) [2]

Не все удается перенести. Например неясно как выделить все таблицу и задать выравнивание для всех ячеек по центу. В VB это Selection.Tables(1).Select
   Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter
. А как перенести это в Delphi не знаю.


 
umbra ©   (2005-10-18 16:54) [3]


> А как перенести это в 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 17:16) [4]

C этим разобрался, но возник другой вопрос. Как выделить следующую ячейку? Пишу WordApplication1.Selection.MoveRight(wdCell, 1, ?). Что это за параметр Extend, который надо третьим указать?


 
umbra ©   (2005-10-18 17:54) [5]


> Что это за параметр 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"


 
YurikGL ©   (2005-10-18 22:19) [6]

Вообще-то с таблицами лучш всего работать через ConvertToTable


 
TruthMan   (2005-10-19 11:25) [7]

Спасибо, но пробовал ставить и wdMove и wdExtend. Выдает ошибку Types of actual and formal var parameters must be identical. Используемая команда WordApplication1.Selection.MoveRight(wdCell, 1, wdMove);


 
TruthMan   (2005-10-20 09:38) [8]

Вот как надо было:
var
un_Var, ex_Var, count : OleVariant
...............................................
WordApplication1.Selection.MoveRight(un_Var, count, ex_Var);

Так что билет мне до Бобруйска, в один конец :))



Страницы: 1 вся ветка

Текущий архив: 2005.11.13;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.028 c
14-1129884103
TButton
2005-10-21 12:41
2005.11.13
глючит звук


2-1130317875
Рома Иванов
2005-10-26 13:11
2005.11.13
html


9-1120154182
cherep36
2005-06-30 21:56
2005.11.13
GLScene


5-1109775581
вопрос
2005-03-02 17:59
2005.11.13
Как из компонента узнать, что в форме выполнилось событие ShortC


3-1127800437
XGarik
2005-09-27 09:53
2005.11.13
Обращение к полю XML