тип границ таблицы Опции

[marwell]

создаю таблицу, назначаю толщину линий и цвет, таблица создается, но все равно остается невидимой
что я делаю не так?

const 
wdLineWidth025pt=0;
var
Application, MyRange: variant;
begin
...
MyRange:=Application.ActiveDocument.Range(Application.ActiveDocument.Range.End-1,
Application.ActiveDocument.Range.End-1);
Application.ActiveDocument.Tables.Add(Range:=MyRange, NumRows:=13, NumColumns:=5);
Application.ActiveDocument.Tables.Item(1).Columns.Item(1).Width:=150;
Application.ActiveDocument.Tables.Item(1).Columns.Item(2).Width:=90;
Application.ActiveDocument.Tables.Item(1).Columns.Item(3).Width:=90;
Application.ActiveDocument.Tables.Item(1).Columns.Item(4).Width:=90;
Application.ActiveDocument.Tables.Item(1).Columns.Item(5).Width:=90;
Application.ActiveDocument.Tables.Item(1).Columns.Borders.OutsideLineWidth:=wdLineWidth025pt;
Application.ActiveDocument.Tables.Item(1).Columns.Borders.OutsideColorIndex:=clBlack;
...

[IUnknown]

Во-первых, wdLineWidth025pt равен не 0, а 2. А во-вторых, цвет назначается не дельфийским clBlack, а Word-овским wdBlack = 1.

[marwell]

Во-первых, wdLineWidth025pt равен не 0, а 2. А во-вторых, цвет назначается не дельфийским clBlack, а Word-овским wdBlack = 1.

wdLineWidth025pt исправил, а на wdBlack ругается
[Error]: Undeclared identifier: 'wdBlack'

Добавлено через 1 мин.

wdLineWidth025pt исправил, а на wdBlack ругается
[Error]: Undeclared identifier: 'wdBlack'

ой, недосмотрел не ругается на wdBlack

Добавлено через 2 мин.

wdLineWidth025pt исправил, а на wdBlack ругается
[Error]: Undeclared identifier: 'wdBlack'

Добавлено через 1 мин.

ой, недосмотрел не ругается на wdBlack

стопорится на этой строчке Application.ActiveDocument.Tables.Item(1).Columns.Borders.OutsideLineWidth:=wdLineWidth025pt;