текст из текстовых полей

[Kolombina]

прога по регистрации народа выдает письма, но эти письма состоят не из слитного текста, а из набора тектовых полей. Как нить его можно оттуда повытаскивать, КРоме как копи-пастом?

[Ципихович Эндрю]

выложите пример

[Kolombina]

пример только завтра с работы могу взять, у меня нет офиса дома.
но мне кажется это легко представить - все письмо написано на просто текстом, а именно составлено из "текстовых полей" (надеюсь по русски они тоже так называют). Когда ты щелкаешь на это поле, то появляется рамочка, как и у рисунков и ты можешь работать с текстом в этом поле.
То есть весь документ состоит из таких квадратиков с текстом

[Ципихович Эндрю]

подожду, посмотрю

[shanemac51]

вытащить макросом можно, но без гарантии порядка параграфов

склоняюсь к тому, что легче
-вывести в PDF
-распознать сплошным текстом( есть режим распознавания этими же рамочками)

или перевести рамочти в текст макросом, а затем визуальный контроль
может и повезет --рамочки окажутся расположенными правильно

[shanemac51]

кроме того, что вас интересует
-только содержимое рамочек в отдельном файле с идентификатором рамочки
-полный текст(рамочки и фон)

[Kolombina]

отформатировать после не такая большая проблема, как вытаскивание самого текста, потому что буквально почти каждое предложение - отдельное поле.

[shanemac51]

Попробуйте на дубле, подойдет ли

sub frame00_110224_1317()
Dim j1, s1
j1 = Word.ActiveDocument.Frames.Count
Do While j1 > 0
With Word.ActiveDocument.Frames(j1)
s1 = " " & .Range.Text
If Len("" & s1) < 0 Then

Debug.Print j1, s1
Else
.Select
.Delete
Selection.Range.Text = s1
End If
End With
j1 = j1 - 1
Loop
j1 = Word.ActiveDocument.Frames.Count
Debug.Print j1, Now

End Sub

[Ципихович Эндрю]

всё же где пример? поле полю рознь

[Kolombina]

Сообщение от Ципихович Эндрю

всё же где пример? поле полю рознь

ну-ка просвятите меня, какие еще текстовые поля могут быть?

пример в приложение