Границы у таблицы через механизм OLE [D7, WinXP]
MaxZhirnov © (2004-08-08 23:22:00)
Здравствуйте.
Мне надо создать таблицу в 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:00) [1]
Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
With Selection.Borders(wdBorderRight)
.LineStyle =
Options.DefaultBorderLineStyle
.LineWidth =
Options.DefaultBorderLineWidth
.Color =
Options.DefaultBorderColor
End With
End Sub
Это выдал мне Word2000 при изменении текущей ячейки
Наверх 
ЧАТ |
Орешник |
|
