Developing.ru

Народ нужна помощь:

Есть вывод в Ворд

procedure TForm1.Button1Click(Sender: TObject);
var
WRDApp:OleVariant;
begin
WRDApp:= CreateOleObject('Word.Application');
WRDApp.Visible:=true;
WRDApp.Documents.Add;
WRDApp.Selection.Font.Size := 12;
WRDApp.Selection.ParagraphFormat.Alignment:=3;
WRDApp.Selection.TypeText('Дата приема _________');
..............................
..............................
WRDApp.ActiveDocument.Tables.Add(Range:=WRDApp.Selection.Range, NumRows:=2, NumColumns:=7);

Нужно эту таблицу разлиновать
но на все поптки выводит разные ошибки:
на такое
WRDApp.Selection.Tables[1].Borders[1].LineStyle := 1;
или
WRDApp.Selection.Tables[1].Borders := 1;
говорит tables не является методом

в ворде выглядит так
Wih Selection.Tables(1)
.Borders(wdBorderLeft);
.lineStyle = wdLineStyleSingle;
.lineWidth = wdLineWidth150pt;
.Color = wdColorAutomatic;
End with
но заставить раскрасить из дельфов не могу :-(

&quot писал(а):WRDApp.Selection.Tables[1].Borders := 1;

попробуй так иногда Delphi криво определяет свойство по умолчанию

SergeyS писал(а):попробуй так

Код: Выделить всё

WRDApp.Selection.Tables(1).Borders := 1;
// или так
WRDApp.Selection.Tables.item(1).Borders := 1;

иногда Delphi криво определяет свойство по умолчанию

Все равно не катит, пишет tables не является методом

тогда попробуй так:
WRDApp.Selection.Get_Tables.item(i)

Не думаю, что после Tables.Add у нас будет адвкватным значение Selection.
Так как Вы создаете новый документ, то можете смело писать

with WRDApp.ActiveDocument.Tables[1] do...

как вывести строку (фразу) в заданные координаты листа word из delphi?

это новый чистый лист, или документ на основе шаблона?

документ на основе шаблона

тогда в шаблоне в нужном месте поставьте букмарк (закладку) и из кода присвойте ей значение

а как быть, если расположение этой самой закладки диктуется пользователем?