![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
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;
Заранее спасибо всем.