Перемещение курсора в Word [Delphi, Windows]
Scorpio © (2006-01-18 17:32:00)
Добрый день мастера.
Столкнулся с такой проблемой открываю документ 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:00) [1]
Если я правильно понял - формируется таблица?
Пример формирования таблицы есть здесь:
http://www.delphimaster.ru/articles/dbtoword/index.html
По поводу двадцатой строчки:
Макрос вроде выглядит так:
Selection.HomeKey Unit:=wdStory
Selection.MoveDown Unit:=wdLine,
Count:=20
Наверх 
ЧАТ |
Орешник |
|
