Скачать: CL | DM;

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c