Форум: "Начинающим";
Текущий архив: 2011.06.05;
Скачать: [xml.tar.bz2];
Вниз
Таблицы, 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]спс.
← →
RWolf © (2011-02-22 13:00) [10]подобные вопросы решаются элементарно.
запускается ворд, записывается макрос, в нём руками делается всё, что нужно.
далее смотрим на получившийся код и копипастим его в дельфовый исходник один к одному.
ну, разве что присвоения останется записать в паскалевском стиле.
← →
clickmaker © (2011-02-22 13:02) [11]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;
разница віделена
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2011.06.05;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.003 c
