Таблицы, word, delphi

← →
oleg_teacher (2011-02-22 11:56) [0]

Помогите вставить рамку для таблицы созданой из Делфи в Ворд.
Создаю:
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;

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

← →
Smile (2011-02-22 12:20) [1]

wdTableFormatGrid1

← →
clickmaker © (2011-02-22 12:23) [2]

например
ActiveDocument.Tables[1].Borders[wdBorderBottom].LineStyle := wdLineStyleDouble;

← →
oleg_teacher (2011-02-22 12:40) [3]

> 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:43) [4]

если не свойство, значит метод
Tables(index)

← →
oleg_teacher (2011-02-22 12:46) [5]

Tables - не является методом.

← →
clickmaker © (2011-02-22 12:47) [6]

> [5] oleg_teacher (22.02.11 12:46)

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

← →
oleg_teacher (2011-02-22 12:51) [7]

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

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

← →
oleg_teacher (2011-02-22 12:57) [8]

все... копнул...
нашол..
MSWord.ActiveDocument.Tables.Item(index).Borders.Item(wdBorderTop).LineStyle := 7;

← →
oleg_teacher (2011-02-22 12:57) [9]

спс.

подобные вопросы решаются элементарно.
запускается ворд, записывается макрос, в нём руками делается всё, что нужно.
далее смотрим на получившийся код и копипастим его в дельфовый исходник один к одному.
ну, разве что присвоения останется записать в паскалевском стиле.

WordApplication1.ActiveDocument.Tables.Item(1).Borders.Item(wdBorderTop).LineSty le := 7;

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

← →
oleg_teacher (2011-02-22 13:16) [12]

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

Таблицы, word, delphi Найти похожие ветки