Delphi ==>Word

Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду

Jack
Сообщения: 3
Зарегистрирован: 07 дек 2006, 21:37

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

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

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
но заставить раскрасить из дельфов не могу :-(
Аватара пользователя
SergeyS
Сообщения: 196
Зарегистрирован: 21 ноя 2006, 17:12
Откуда: Хакасия, Абакан
Контактная информация:

&quot писал(а):WRDApp.Selection.Tables[1].Borders := 1;
попробуй так

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

WRDApp.Selection.Tables(1).Borders := 1;
// или так
WRDApp.Selection.Tables.item(1).Borders := 1;
иногда Delphi криво определяет свойство по умолчанию
Jack
Сообщения: 3
Зарегистрирован: 07 дек 2006, 21:37

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

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

WRDApp.Selection.Tables(1).Borders := 1;
// или так
WRDApp.Selection.Tables.item(1).Borders := 1;
иногда Delphi криво определяет свойство по умолчанию
Все равно не катит, пишет tables не является методом :confused:
Аватара пользователя
SergeyS
Сообщения: 196
Зарегистрирован: 21 ноя 2006, 17:12
Откуда: Хакасия, Абакан
Контактная информация:

тогда попробуй так:
WRDApp.Selection.Get_Tables.item(i)
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

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

with WRDApp.ActiveDocument.Tables[1] do...
m(a)mv
Сообщения: 3
Зарегистрирован: 24 сен 2009, 23:28

как вывести строку (фразу) в заданные координаты листа word из delphi?
Аватара пользователя
Игорь Акопян
Сообщения: 1440
Зарегистрирован: 13 окт 2004, 17:11
Откуда: СПБ
Контактная информация:

это новый чистый лист, или документ на основе шаблона? ;)
Изображение
m(a)mv
Сообщения: 3
Зарегистрирован: 24 сен 2009, 23:28

документ на основе шаблона
Аватара пользователя
Игорь Акопян
Сообщения: 1440
Зарегистрирован: 13 окт 2004, 17:11
Откуда: СПБ
Контактная информация:

тогда в шаблоне в нужном месте поставьте букмарк (закладку) и из кода присвойте ей значение
Изображение
m(a)mv
Сообщения: 3
Зарегистрирован: 24 сен 2009, 23:28

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