Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Как в Word перевести курсор в конец дока


Автор: YURIC 2.10.2004, 15:48
Помогите пожалуйста с такой ситуацией:

Создаю документ ворда, затем добавляю какой-то текст, и таблицу

Код
Table := MSWord.Selection.Tables.Add(DOC, 1 , stolbs );
MSWord.Selection.Font.Size := 12;
MSWord.Selection.Font.Bold := true;
Table.Cell(1,1).Range.Text := ' столб1;
Table.Cell(1,stolbs).Range.Text := ' столб последний;


после этого необходимо выйти из таблици и продолжить написание текста
Код
MSWord.Selection.TypeText(#13#10'Текст Текст'#13#10#13#10);


как?

уже третий день бьюсь и никак sad.gif

Автор: Dimich 2.10.2004, 16:18
Может этот кусок кода поможет?
Код
Var
 W : OleVariant;
begin
 W := CreateOleObject ('Word.Application');
 W.Visible := true;
 W.Documents.Open ('c:\bbb.lst');
 W.Selection.EndKey (6);  // wdStory = 6 ???
end;

Автор: YURIC 2.10.2004, 16:30
Dimich

VERY, VERY-VERY, спасибо!!!!
Ззззаааработало!!! thumbs-up.gif thumbs-up.gif biggrin.gif

I Love This FORUM adv/65.gif

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)