Здравствуйте, Седьмой романтик, Вы писали:

СР> Я имею ввиду, набраные в Microsoft Equation. Воспроизвести легко: взять
СР>формулу и растянуть её по горизонтали пока знак параграфа не перескочит.

Тогда что-нибудь типа

    Dim ishp As InlineShape
    For Each ishp In ActiveDocument.InlineShapes
        If ishp.Width > _
           (ActiveDocument.PageSetup.PageWidth - _
                (ActiveDocument.PageSetup.LeftMargin + ActiveDocument.PageSetup.RightMargin)) Then
            MsgBox ishp.AlternativeText
            
            ishp.Width = _
                (ActiveDocument.PageSetup.PageWidth - _
                        (ActiveDocument.PageSetup.LeftMargin + ActiveDocument.PageSetup.RightMargin))
        End If
    Next ishp