1

Тема: Найти в документе 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

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

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

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

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