Форум: "Corba";
Текущий архив: 2007.09.30;
Скачать: [xml.tar.bz2];
ВнизПеремещение курсора в Word Найти похожие ветки
← →
Scorpio © (2006-01-18 17:32) [0]Добрый день мастера.
Столкнулся с такой проблемой открываю документ Word, вношу туда данные, затем мне необходимо сместиться на 20 строчку. Кук мне это правильно сделать. Исходный код такой:
WordApplication1.Documents.Add(EmptyParam,EmptyParam);
WordApplication1.Selection.InsertAfter("Шапка"+#13);
WordApplication1.Selection.InsertAfter("Шапка"+#13);
WordFont1.ConnectTo(WordApplication1.Selection.Font);
WordParagraphFormat1.ConnectTo(WordApplication1.Selection.ParagraphFormat);
WordFont1.Size := 12;
WordFont1.Name := "Arial";
WordParagraphFormat1.Alignment := wdAlignParagraphCenter;
direction := wdCollapseEnd;
WordApplication1.Selection.Collapse(direction);
WordApplication1.Selection.InsertAfter("3300-MD, ã.Òèðàñïîëü, óë.Ìàíîéëîâà,68 òåë."+#13);
WordApplication1.Selection.InsertAfter(#13);
WordFont1.ConnectTo(WordApplication1.Selection.Font);
WordParagraphFormat1.ConnectTo(WordApplication1.Selection.ParagraphFormat);
WordFont1.Bold := 1;
WordFont1.Size := 8;
WordFont1.Name := "Arial";
WordParagraphFormat1.Alignment := wdAlignParagraphCenter;
WordApplication1.Selection.Collapse(direction);
Затем вставляется текстовый массив.
Но какой длины он будет, неизвестно.
Мне необходимо вконце переместиться на 20 строчку. Как это сделать ??
← →
YurikGL © (2006-01-18 18:57) [1]Если я правильно понял - формируется таблица?
Пример формирования таблицы есть здесь:
http://www.delphimaster.ru/articles/dbtoword/index.html
По поводу двадцатой строчки:
Макрос вроде выглядит так:Selection.HomeKey Unit:=wdStory
Selection.MoveDown Unit:=wdLine, Count:=20
Страницы: 1 вся ветка
Форум: "Corba";
Текущий архив: 2007.09.30;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.05 c