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

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; // и только
я имею в виду, смотря какой ворд используешь.  Хотя и том и в другом, да во всех остальных, думаю, значение этой константы одинаковое...

---

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

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

---

← →
GanibalLector ©   (2004-09-27 02:56) [11]

Удивляет то,что это

WordApp.Selection.HomeKey($00000006);

и это

vr1:=wdStory;
WordApplication1.Selection.HomeKey(vr1,EmptyParam);

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

---

← →
GanibalLector ©   (2004-09-27 02:58) [12]

Хотя
function  HomeKey(var Unit_: OleVariant; var Extend: OleVariant): Integer; safecall;

имеет два параметра.Во чудеса!

---

← →
jack128 ©   (2004-09-27 03:04) [13]

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

---

Страницы: 1 вся ветка

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



Память: 0.48 MB
Время: 0.023 c