Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.22;
Скачать: 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 вся ветка

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

Наверх




Память: 0.46 MB
Время: 0.025 c
1-1091948146
k-sergey
2004-08-08 10:55
2004.08.22
Про поток и TImage


14-1091601554
Stany
2004-08-04 10:39
2004.08.22
сетевые глюки винды


14-1091785039
Cerberus
2004-08-06 13:37
2004.08.22
Текстовые фаилы


1-1092134649
Fath
2004-08-10 14:44
2004.08.22
MaskEdit


4-1088528362
djone
2004-06-29 20:59
2004.08.22
TreeView