Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 Организация поиска в power point средствами delphi - Delphi  [new]
SMART_001
Member

Откуда: Astana
Сообщений: 40
procedure FindAndReplace(P: Variant; SearchStr, ReplaceStr: string);
var
  i, j: Integer;
  ppSlide, ppShape: Variant;
begin
  for i := 1 to P.Slides.Count do
  begin
    ppSlide := P.Slides.Item(i);
    for j := 1 to ppSlide.Shapes.Count do
    begin
      ppShape := ppSlide.Shapes.Item(j);
      s := ppShape.TextFrame.TextRange.Text;
      s := StringReplace(s, SearchStr, ReplaceStr, [rfReplaceAll]);
      ppShape.TextFrame.TextRange.Text := s;
    end;
  end;
end;
procedure TForm2.SpeedButton2Click(Sender: TObject);
 begin
    try
     ppApp := CreateOleObject('PowerPoint.Application');
     except
     ShowMessage('Error...');
     Exit;
    end;

    ppPres := ppApp.Presentations.Open(ExtractFilePath(Application.ExeName)+'sld.pptx',False, False, True);
    ppApp.ActivePresentation.SaveAs(getcurrentdir+'sl01111d.pptx');

// вызов: 
FindAndReplace(ppPres, '222', '111')


Выдает ошибку как на картинке? в чем проблема?
8 май 18, 07:56    [21394634]     Ответить | Цитировать Сообщить модератору
 Re: Организация поиска в power point средствами delphi - Delphi  [new]
SMART_001
Member

Откуда: Astana
Сообщений: 40
SMART_001,

К сообщению приложен файл. Размер - 14Kb
8 май 18, 07:57    [21394635]     Ответить | Цитировать Сообщить модератору
 Re: Организация поиска в power point средствами delphi - Delphi  [new]
Tactical Nuclear Penguin
Member

Откуда: холодно тут
Сообщений: 2573
тут необходим программист и отладчик
8 май 18, 08:46    [21394698]     Ответить | Цитировать Сообщить модератору
 Re: Организация поиска в power point средствами delphi - Delphi  [new]
makhaon
Member

Откуда: A galaxy far far away
Сообщений: 2843
SMART_001,

автор
в чем проблема?


Не благодари: Указанное значение выходит за допустимые пределы.
8 май 18, 09:43    [21394811]     Ответить | Цитировать Сообщить модератору
 Re: Организация поиска в power point средствами delphi - Delphi  [new]
alekcvp
Member

Откуда:
Сообщений: 1103
Я не секу в поверпойнте, но вообще в 99% известных мне вещей
for i := 1 to P.Slides.Count do

циклы делаются от 0 до (Count - 1).
8 май 18, 09:48    [21394830]     Ответить | Цитировать Сообщить модератору
 Re: Организация поиска в power point средствами delphi - Delphi  [new]
alekcvp
Member

Откуда:
Сообщений: 1103
P.S: Даже анекдот такой был, что программист до ста считает так: 0, 1, 2 ... 99!
8 май 18, 09:50    [21394838]     Ответить | Цитировать Сообщить модератору
 Re: Организация поиска в power point средствами delphi - Delphi  [new]
SMART_001
Member

Откуда: Astana
Сообщений: 40
alekcvp,

К сообщению приложен файл. Размер - 14Kb
8 май 18, 10:46    [21394989]     Ответить | Цитировать Сообщить модератору
 Re: Организация поиска в power point средствами delphi - Delphi  [new]
wadman
Member

Откуда: Санкт-Петербург
Сообщений: 24312
SMART_001
alekcvp,

Картинка с другого сайта.

Открою секрет: это окно позволяет пользоваться кнопками Ctrl+C.

Ну и без кода как-то сложно гадать... Особенно, если лень пользоваться отладчиком.
8 май 18, 11:00    [21395062]     Ответить | Цитировать Сообщить модератору
 Re: Организация поиска в power point средствами delphi - Delphi  [new]
Соколинский Борис
Member

Откуда: Москва
Сообщений: 8384
alekcvp
Я не секу в поверпойнте, но вообще в 99% известных мне вещей
циклы делаются от 0 до (Count - 1).
99% известных мне циклов в VBA делаются через итераторы.
8 май 18, 11:04    [21395081]     Ответить | Цитировать Сообщить модератору
 Re: Организация поиска в power point средствами delphi - Delphi  [new]
makhaon
Member

Откуда: A galaxy far far away
Сообщений: 2843
wadman,

Без отладчика совсем беда. А им ТС по какой-то причине отказывается пользоваться. Может в клавиатуре F5 сломалось? Скинемся на новую клаву, или чем ему тут помочь...
8 май 18, 11:35    [21395294]     Ответить | Цитировать Сообщить модератору
 Re: Организация поиска в power point средствами delphi - Delphi  [new]
wadman
Member

Откуда: Санкт-Петербург
Сообщений: 24312
makhaon
Может в клавиатуре F5 сломалось?

F5 это только запуск :( там бряки еще нужно уметь ставить, по шагам ходить... Ужас.
8 май 18, 12:18    [21395492]     Ответить | Цитировать Сообщить модератору
 Re: Организация поиска в power point средствами delphi - Delphi  [new]
Док
Member

Откуда: Казань
Сообщений: 5762
makhaon
Скинемся на новую клаву, или чем ему тут помочь...

не стоит. ТС паскаль по форумам изучает.
8 май 18, 12:38    [21395575]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить