Главная страница
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.036 c
6-1087575889
webpauk
2004-06-18 20:24
2004.08.22
Сканирование сети


3-1090587495
MORA
2004-07-23 16:58
2004.08.22
целостность БД


1-1091803396
Limp
2004-08-06 18:43
2004.08.22
Милисекунды в TDateTime


11-1076525494
KreZ0n
2004-02-11 21:51
2004.08.22
FPC


14-1091714217
default
2004-08-05 17:56
2004.08.22
Удалённая работа