Границы у таблицы через механизм OLE

← →
MaxZhirnov (2004-08-08 23:22) [0]

Здравствуйте.
Мне надо создать таблицу в Word"е так чтобы границы всех ячеек были видимы. Для создания таблицы я использую следующий код.
var
WordApp, NewDoc, WordTable: OLEVariant;
begin
try
WordApp := CreateOleObject("Word.Application");
except
Exit;
end;

WordApp.Visible := True;
NewDoc := WordApp.Documents.Add;
WordTable := NewDoc.Tables.Add(WordApp.Selection.Range, 3, 5);

// WordTable.Borders("wdBorderLeft").LineStyle := "wdLineStyleSingle";
// WordTable.Borders("wdBorderLeft").LineWidth := "wdLineWidth050pt";
// WordTable.Borders("wdBorderLeft").Color := "wdColorAutomatic";

WordApp := Unassigned;
NewDoc := Unassigned;
WordTable := Unassigned;
end;
По идее три закомментированные строчки должны как раз устанавливать левую границу таблицы, но в результате выскакивает ошибка: не существует метода "Borders". Подскажите, пожалуйста, как устанавливать границы у таблицы через механизм OLE?
С уважением, ZHirnov Maxim

← →
Cobalt © (2004-08-09 02:05) [1]

Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
With Selection.Borders(wdBorderRight)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
End Sub

Это выдал мне Word2000 при изменении текущей ячейки

Границы у таблицы через механизм OLE Найти похожие ветки