Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Word [Delphi, Windows]


Niko4543 ©   (2004-05-11 09:52:00) 

Привет всем.
У меня на форме лежит OleContainer в него загружен вордовский файл с 56 листами.
Вопрос: Как мне можно сделать чтобы по нажатию на кнопке в OleContainer`e  показывалась следующая страница(страница показывалясь случайным образом)??????
Заранее спасибо


Niko4543   (2004-05-13 14:17:00) [1]

Привет всем.
Да ответьте пожайлуста неполучается ничего.
Делаю так:

procedure TForm1.Button2Click(Sender: TObject);
var
 Whatr: OLEVariant;
 Which: OLEVariant;
 Count: OLEVariant;
 Name: OLEVariant;
begin
Whatr:=wdGoToPage;
Which:=wdGoToNext;
Count:=unAssigned;
Name:='3';
WordApplication1.Selection.GoTo_(Whatr, Which, Count, Name);
WordApplication1.Selection.Find.ClearFormatting;
  // With WordApplication1.Selection. Find.
    //   .Text = '';
   //    .Replacement.Text = '';
   //    .Forward = True;
   //    .Wrap = wdFindContinue;
   //    .Format = False;
   //    .MatchCase = False;
   //    .MatchWholeWord = False;
   //    .MatchWildcards = False;
   //    .MatchSoundsLike = False;
   //    .MatchAllWordForms = False;
end;


Заранее спасибо всем.


Наверх

Титульная страница Поиск, карта сайта Написать письмо