Помогите создать ма-а-а-ленький макрос на VBA, который бы доставал из надписей текст в новый документ без этих объектов.
После сканирования весь текст оказался в надписях.
В каждой надписи по нескольку строк и несколько символов в каждой строке, строка заканчивается символом перевод строки.
Думаю, что можно было-бы путем перебора всех символов, но как это сделать...

В прикрепленном архиве два файла оригинал.rtf и должно получиться.doc

Заранее всем спасибо, кто хотя-бы подаст идею.


Присоединённый файл ( Кол-во скачиваний: 4 )
 word.zip

Цитата

ма-а-а-ленький макрос на VBA

Код

Sub Ìàêðîñ4()     Selection.WholeStory     Selection.Copy     Documents.Add DocumentType:=wdNewBlankDocument     ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _         1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _         wdAutoFitFixed     With Selection.Tables(1)         If .Style <> "Сетка таблицы" Then             .Style = "Сетка таблицы"         End If         .ApplyStyleHeadingRows = True         .ApplyStyleLastRow = True         .ApplyStyleFirstColumn = True         .ApplyStyleLastColumn = True     End With     Selection.PasteAndFormat (wdPasteDefault) End Sub

Смысл такой-выделяем все ,копируем,создаем новый документ ,вставляем туда 1 столбец-1 строка и вставляем текст.

Еще есть вариант -Сохранить как текстовый файл

Сейчас обнаружила.Верхний код только в 2003работает
Для 2000

Код

Selection.WholeStory     Selection.Copy     Documents.Add DocumentType:=wdNewBlankDocument     ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _         1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _         wdAutoFitFixed     Selection.Paste     ActiveWindow.ActivePane.VerticalPercentScrolled = 0     'With Selection.Frames(1) сдесь удаляю рамку вручную(Формат-рамка) т.к. из другой книги         '.Select        ' .Delete     End With

спасибо, все прекрасно работает.
правда, так как это нужно было как всегда вчера, а я взялся сегодня, то помучился и сделал так:
В одной папке много 300-500 таких документов по одной странице, я их все открыл, вывел на панель кнопочку для сохранения текущего документа в текством формате и его закрытия и много раз нажал на нее, у меня получились текстовые файлы с необходимым содержимым. Затем создал новый документ и вставил в него полученные файлы и все получилось УРА!!!.
работает немного медленее (сохранение текстового файла и его закрытие), но не значительно.

ВСЕ РАВНО ОГРОМНОЕ СПАСИБО!!!