Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Таблицы, word, delphi [D7]

oleg_teacher © (2011-02-22 11:56:00)
Помогите вставить рамку для таблицы созданой из Делфи в Ворд.
Создаю:
Function CreateTable(NumRows, NumColumns:integer;var index:integer):boolean;
var sel_:variant;
begin
CreateTable:=true;
try
sel_:=MSWord.selection;
MSWord.ActiveDocument.Tables.Add (Range:=sel_.Range,NumRows:=NumRows,NumColumns:=NumColumns);
index:=MSWord.ActiveDocument.Tables.Count;
except
CreateTable:=false;
end;
End;

Как поставить для нее рамку немогу понять. Хотя вроде примеры в интернете есть... норазобратся не могу.

oleg_teacher (2011-02-22 13:16:00) [1]
MSWord.ActiveDocument.Tables[index].Borders[wdBorderTop].LineStyle := 7;
WordApplication1.ActiveDocument.Tables.Item(1).Borders. Item(wdBorderTop).LineSty le := 7;
разница віделена

clickmaker (2011-02-22 13:02:00) [2]
WordApplication1.ActiveDocument.Tables.Item(1).Borders.Item(wdBorderTop).LineSty le := 7;

у меня нет ошибки. Я что-то делаю не так?

RWolf (2011-02-22 13:00:00) [3]
подобные вопросы решаются элементарно.
запускается ворд, записывается макрос, в нём руками делается всё, что нужно.
далее смотрим на получившийся код и копипастим его в дельфовый исходник один к одному.
ну, разве что присвоения останется записать в паскалевском стиле.

oleg_teacher (2011-02-22 12:57:00) [4]
все... копнул...
нашол..
MSWord.ActiveDocument.Tables.Item(index).Borders.Item(wdBorderTop).LineStyle := 7;

oleg_teacher (2011-02-22 12:57:00) [5]
спс.

oleg_teacher (2011-02-22 12:51:00) [6]

> будешь сюда транслировать все сообщения компилятора?

Дело в том что и так пробовал... ошибка... пофик (.

clickmaker (2011-02-22 12:47:00) [7]
> [5] oleg_teacher (22.02.11 12:46)

будешь сюда транслировать все сообщения компилятора? думалку включать будем?
Tables.Item(index)

oleg_teacher (2011-02-22 12:46:00) [8]
Tables - не является методом.

clickmaker (2011-02-22 12:43:00) [9]
если не свойство, значит метод
Tables(index)

oleg_teacher (2011-02-22 12:40:00) [10]

> ActiveDocument.Tables[1].Borders[wdBorderBottom].LineStyle
> := wdLineStyleDouble;

const
wdBorderTop = $FFFFFFFF;

MSWord.ActiveDocument.Tables.Add (Range:=sel_.Range,NumRows:=NumRows,NumColumns:=NumColumns);
index:=MSWord.ActiveDocument.Tables.Count;
MSWord.ActiveDocument.Tables[index].Borders[wdBorderTop].LineStyle := 7;

И фигня какая то... пишет "Item" не является свойством

clickmaker (2011-02-22 12:23:00) [11]
например
ActiveDocument.Tables[1].Borders[wdBorderBottom].LineStyle := wdLineStyleDouble;

Smile (2011-02-22 12:20:00) [12]
wdTableFormatGrid1

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »