Word

← →
GanibalLector © (2004-09-24 16:06) [0]

Создаю некий документ на несколько страниц с "разрывом страниц".После создания,хотелось бы перейти
к первой странице.Так вот,делаю так:
WordApp := CreateOleObject("Word.Application"); WordApp.Documents.add; Doc1:=WordApp.ActiveDocument; ... WordApp.GoForward;// ПЕРЕХОД В НАЧАЛО !!!
и оказываюсь в начале последней страницы.А нужно-то в первой.Как оказаться в первой???

Еще несколько вопросов:
как документ минимизировать в панель задач???Могу через sendmessage,но в этом случае,необходимо знать
Caption моего документа.Насколько я понял его можно получить частично Doc1.Name+WordApp.Caption

← →
П7 (2004-09-24 16:47) [1]

Сэмулируй нажатие Ctrl+Home! (:

← →
GanibalLector © (2004-09-24 18:18) [2]

А других вариантов нет ???

← →
YurikGL © (2004-09-24 20:04) [3]

vr1 :olevariant; ... vr1:=wdStory; WordApplication1.Selection.HomeKey(vr1,EmptyParam);Вообще, в моей анкете все это описано :-)

← →
GanibalLector © (2004-09-27 02:10) [4]

2 YurikGL © (24.09.04 20:04) [3]
Хм...Интересная штука,эти макросы.Не знал.

Так вот,вернемся к теме:
Вот макрос на "разрыв страницы"
Selection.InsertBreak Type:=wdPageBreak
в Delphi выглядит так :
WordApp.Selection.InsertBreak;

Заметьте,без всяких там wdPageBreak

А что касается возврата на первую страницу,то макрос :
Selection.HomeKey Unit:=wdStory

В Delphi сделал WordApp.Selection.HomeKey и опять таки меня выбрасывает не на первую,а на текущую в начало.Пробовал запихивать этот wdStory => безрезультатно.

← →
GanibalLector © (2004-09-27 02:14) [5]

2 YurikGL © (24.09.04 20:04) [3]
Забыл сказать,Ваш код не работает.
Ругается,что undeclared identifier wdStory.
Пробовал,что-то типа vr1:="wdStory";// в кавычках
и получаю ошибку несоответствие типа.

← →
jack128 © (2004-09-27 02:28) [6]

GanibalLector © (27.09.04 2:14) [5]
Поиском не умеем работать.. Зря - очень зря!!!!

зы
uses
Word97 // или Word200 - смотря что используешь..

← →
GanibalLector © (2004-09-27 02:38) [7]

2 jack128
Про какой поиск разговор???

uses
Word97 // или Word200 - смотря что используешь..
хм...
uses ComObj; // и только

← →
GanibalLector © (2004-09-27 02:40) [8]

Опс,заработало...с uses Word97
Спасибо!

← →
jack128 © (2004-09-27 02:42) [9]

GanibalLector © (27.09.04 2:38) [7]
про тот, который Пуск/Найти/Фалы и папки

>хм...
> uses ComObj; // и только
я имею в виду, смотря какой ворд используешь. Хотя и том и в другом, да во всех остальных, думаю, значение этой константы одинаковое...

Да,одинаковое :)

Удивляет то,что это
WordApp.Selection.HomeKey($00000006);
и это
vr1:=wdStory; WordApplication1.Selection.HomeKey(vr1,EmptyParam);

Заметьте,в первом случае на один параметр меньше,но все ЧУДЕСНО работает.Странно...

Хотя
function HomeKey(var Unit_: OleVariant; var Extend: OleVariant): Integer; safecall;
имеет два параметра.Во чудеса!

GanibalLector © (27.09.04 2:56) [11]
ничего странного нет.
Внимательно изучи методы IDispatch. Можешь скачать у AP с сайта стать Тенцера про Script Control - там этот интерфейс расписан на понятном языке..

Word Найти похожие ветки