Elena_ wrote:


Спасибо Elena_. К сожалению, это полумера, поскольку работает только если
левая граница формулы приходится на границу листа. Иначе говоря, нет
отступа и нет текста перед объектом.

Я попытался найти какое-нибудь свойство вроде Left для InlineShape, но не
сумел найти ничего, что позволило бы написать что-то вроде

        If (ishp.Width + ishp.Left) > _
            (ActiveDocument.PageSetup.PageWidth - _
                 (ActiveDocument.PageSetup.LeftMargin +
                 ActiveDocument.PageSetup.RightMargin)) Then
             MsgBox ishp.AlternativeText
        End If

В общем, два вопроса:

1) Как узнать местоположение InlineShape на странице, т.е. не только ширину
и высоту, но и привязку к границам текущего листа.

2) Допустим я нашёл. Но надо как-то сообщить о каком конкретно объекте идёт
речь, то есть как найти контекст в тексте для объекта: в каком параграфе
находится и после каких символов текста вставлен?

Пробовал через Parent, но Parent указывает на весь документ. Попытался
искать InlineShapes в выделеном тексте, но это не предусмотрено в VBA.