x=createobject(‘Word.Document’)
…
* Тут идет перебор параграфов, в word их счетчик не сбивается,
* если в фоксе будет сбиваться, попробуй так:
*  i= 0  
* do while i< x.Paragraphs.Count
*  i=i+ 1 
for i =  1  to x.Paragraphs.Count
   * В фоксе это условие проверять вроде не нужно,
   * цикл от  1  до  0  и так не будет выполняться
   * if x.Paragraphs(i).Range.InlineShapes.Count >  0  
   for j =  1  to x.Paragraphs(i).Range.InlineShapes.Count
       if x.Paragraphs(i).Range.InlineShapes(j).OLEFormat.ProgID = ‘Equation. 3 ’
           x.Paragraphs(i).Range.InsertParagraphAfter
           x.Paragraphs(i +  1 ).Range.Text = ‘подпись’ + chr( 13 )
       endif
   endfor
endfor