1 Тема от alexan0308

  • alexan0308
  • Заблокирован
  • Неактивен
  • Зарегистрирован: 18.03.2013
  • Сообщений: 39
  • Поблагодарили: 7

Тема: Найти в документе Word все картинки (и отсечь формулы)

Ищу картинки в документе Word. синтаксис на Delphi.

     Selection.Start:=0;   Selection.End:=0;
     Selection.Find.ClearFormatting;
     Selection.Find.Text:= '^g';
     Selection.Find.Forward:= True;
       k:=0;
  while Selection.Find.Execute do inc(k);

Проблема, что программа формулы также воспринимает как картинки. Есть ли способ обойти это?

2 Ответ от Boris_R

  • Boris_R
  • полковник
  • Неактивен
  • Зарегистрирован: 07.08.2012
  • Сообщений: 234
  • Поблагодарили: 110
  • За сообщение: 2

Re: Найти в документе Word все картинки (и отсечь формулы)

В тексте, содержащем как формулы Word 2007,  формулы Microsoft Equation 3.0 так и картинки, срабатывает код VBA

Selection.GoTo What:=wdGoToGraphic, Which:=wdGoToNext, Count:=1, Name:=""

На формулах обоих видов данный код не останавливается.