Перемещение курсора в 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

Перемещение курсора в Word Найти похожие ветки