Скачать: CL | DM;

Границы у таблицы через механизм 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 при изменении текущей ячейки

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c