Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.10;
Скачать: 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 вся ветка

Текущий архив: 2004.10.10;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.028 c
4-1094794580
needle
2004-09-10 09:36
2004.10.10
Как узнать принадлежит-ли компьютер к какому-либо домену?


8-1090069922
Nolf
2004-07-17 17:12
2004.10.10
плагин к Winamp у


14-1095628442
Yanis
2004-09-20 01:14
2004.10.10
Не могу ветку про бесплатный доступ к сайту найти :)


1-1095943162
Erik1
2004-09-23 16:39
2004.10.10
Как создать функцию возвращающею разные типы?


6-1091728035
Лёва З.
2004-08-05 21:47
2004.10.10
Кодировка сообщений в TNMSMTP