Помогите найти скрытый текст ( text boxes)

[mouserider]

Всем привет, в общем есть документ, в котором есть скрытый текст, единственное как я смог его найти, зная слово, показывает результаты через поиск http://joxi.ru/4DmB4QKTwbgLAP

я прочитал 100-500 статей в интернете как найти скрытые текст боксы, ничего не работает, ни макросом, ни выделением контента, ни через настройки, пробовал штук 7 разных приемов, вроде нашел что все они на одной странице ( при клике на результат поиска, ворд кидает меня вроде как на страницу с ними) Путем удаления контента я вроде как выяснил что все 30 текстбоксов где-то в одной строке, но там ничего нет, я чуть ли не с лупой смотрел, там только якорь ( anchor text) который мигает когда я тыкаю по результатам поиска. В общем надеюсь на вашу помощь

[shanemac51]

Просто очень мелкий текст записан в надпись, которая спозиционирована за пределы страницы( отрицательный отступ)

[mouserider]

А как его найти?

[shanemac51]

я ищу макросом и вывожу в текстовый файл


===
конечно может что-то другое
надо видеть документ

[mouserider]

пробовал макросом, не получается, вот документ https://drive.google.com/a/konskiy.c...0bnZscGQ4/view

[shanemac51]

6 раз повторен мусорный текст типа

— В ночь на 2 марта Земфира вывесила на своем официальном сайте собственную версию песни украинской группы «Океан Ельзи», поддерживающей Майдан. в рамках которой собирают выпускников вузов со всего мира, отвозят в Японию,

=== всего 500,000 символов

[mouserider]

мне на другом ресурсе посоветовали вот такую команду

thisdocument.Shapes(1).Left=1
thisdocument.Shapes(1).Height=100
thisdocument.Shapes(1).Select


через VBA Immidiate,

но блин на 4-страничном файле если запускаю - вижу этот мелкий текст справа

а если на полном (100 страниц) нигде найти не могу

да чтож такое

[shanemac51]

thisdocument.Shapes(1).Left=1
thisdocument.Shapes(1).top=1
thisdocument.Shapes(1).width=200
thisdocument.Shapes(1).height=200
thisdocument.Shapes(1).Select

и ищите в левом верхнем углу
если у вас их несколько --попробуйте менять номер у Shapes

[Вождь]

Если прячут, то делают кучу нестандартных настроек. Чем их все искать и править, проще конвертануть надписи в текст, с очисткой формата, и глянуть что там в обычном виде. Прогоните активный документ этим макросом и все увидите:

Sub ShapesToText()
    Dim DOC As Document, SH As Shape, R As Range, i&, k&
    Set DOC = ActiveDocument
    DOC.Range.HighlightColorIndex = wdNoHighlight
    For i = DOC.Range.ShapeRange.Count To 1 Step -1
        Set SH = DOC.Range.ShapeRange(i)
        If SH.TextFrame.HasText Then
            Set R = SH.ConvertToFrame.Range
            R.Style = wdStyleBodyText
            R.HighlightColorIndex = wdRed
            k = k + 1
        End If
    Next i
    If Not R Is Nothing Then
        R.Collapse wdCollapseStart
        R.Select
    End If
    MsgBox "Преобразовано объектов в текст: " & k & vbLf & _
           "Полученный текст выделен красным."
End Sub

Немного поправил, чтобы рисунки пропускал.