Delphi ==>Word
Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду
Народ нужна помощь:
Есть вывод в Ворд
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
но заставить раскрасить из дельфов не могу :-(
Есть вывод в Ворд
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
- Откуда: Хакасия, Абакан
- Контактная информация:
попробуй так" писал(а):WRDApp.Selection.Tables[1].Borders := 1;
Код: Выделить всё
WRDApp.Selection.Tables(1).Borders := 1;
// или так
WRDApp.Selection.Tables.item(1).Borders := 1;
Все равно не катит, пишет tables не является методомSergeyS писал(а):попробуй такиногда Delphi криво определяет свойство по умолчаниюКод: Выделить всё
WRDApp.Selection.Tables(1).Borders := 1; // или так WRDApp.Selection.Tables.item(1).Borders := 1;

- Naeel Maqsudov
- Сообщения: 2570
- Зарегистрирован: 20 фев 2004, 19:17
- Откуда: Moscow, Russia
- Контактная информация:
Не думаю, что после Tables.Add у нас будет адвкватным значение Selection.
Так как Вы создаете новый документ, то можете смело писать
with WRDApp.ActiveDocument.Tables[1] do...
Так как Вы создаете новый документ, то можете смело писать
with WRDApp.ActiveDocument.Tables[1] do...
как вывести строку (фразу) в заданные координаты листа word из delphi?
- Игорь Акопян
- Сообщения: 1440
- Зарегистрирован: 13 окт 2004, 17:11
- Откуда: СПБ
- Контактная информация:
это новый чистый лист, или документ на основе шаблона? 


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

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