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

Вниз

Границы в MS Word   Найти похожие ветки 

← →
MrCorp   (2004-05-20 11:51) [0]

Добрый день! Я создаю документ Word и в нем таблицу:

var W:variant;
...
W:=CreateOleObject("Word.Application");
W.Visible:=True;
W.Documents.Add;
W.ActiveDocument.Tables.Add(W.Selection.Range, 2, 5, wdWord8TableBehavior, wdAutoFitFixed);

При попытке изменить границы ячейки таблицы возникает ошибка:
W.Selection.Borders(wdBorderTop).LineStyle:= wdLineStyleSingle;

---

← →
YurikGl ©   (2004-05-20 11:55) [1]

Сначала ячейку выбрать нужно.

---

← →
MrCorp   (2004-05-20 12:22) [2]

Во-первых, код макроса работает и без выбора ячейки:

Selection.Borders(wdBorderTop).LineStyle = wdLineStyleSingle


Во-вторых, даже если ячейка выбрана, возникает ошибка "Borders не является методом":

var W:variant;
begin
 W:=CreateOleObject("Word.Application");
 W.Visible:=True;
 W.Documents.Add;
 W.ActiveDocument.Tables.Add(W.Selection.Range, 2, 5, wdWord8TableBehavior, wdAutoFitFixed);
 W.Selection.SelectCell;
 W.Selection.Borders(wdBorderTop).LineStyle:= wdLineStyleSingle;//ошибка
end;


---

← →
YurikGl ©   (2004-05-20 12:29) [3]

Пользую
w1.Selection.Cells.Borders.Item(wdBorderLeft).LineStyle:=wdLineStyleSingle;

---

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

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

Наверх

Память: 0.47 MB
Время: 0.047 c