1

Тема: Помогите удалить сразу все рамки с содержимым из word

Добрый день
Работаю на 2003word, при извлечении текста, мешают рамки с текстом внутри, как можно их удалить сразу все и с их текстом внутри.
Буду очень благодарна

2

Re: Помогите удалить сразу все рамки с содержимым из word

надо приложить этот файл с рамками, а может быть что то о чём Вы думаете по другому называется

3

Re: Помогите удалить сразу все рамки с содержимым из word

Ципихович Эндрю пишет:

надо приложить этот файл с рамками, а может быть что то о чём Вы думаете по другому называется


Вот файлик. Меня интересует только текст, а пока я не удалю они рвут всё
они называются рамки, а по центру называется надпись.
Помогите их удалить как-то чтоб сразу все.

Post's attachments

рамки.doc 31 Кб, 5 скачиваний с 2012-06-17 

You don't have the permssions to download the attachments of this post.

4

Re: Помогите удалить сразу все рамки с содержимым из word

Попробуйте это

Public Sub Test()
Dim frm As Frame
    For Each frm In ActiveDocument.Frames
        frm.Range.Delete
        frm.Delete
        Selection.Delete
    Next frm
End Sub

Отредактировано aap77 (17.06.2012 22:09:35)

5

Re: Помогите удалить сразу все рамки с содержимым из word

aap77 пишет:

Попробуйте это

Public Sub Test()
Dim frm As Frame
    For Each frm In ActiveDocument.Frames
        frm.Range.Delete
        frm.Delete
        Selection.Delete
    Next frm
End Sub

Я просто шокирована, столько времени я убивала на эти рамки,
а не подскажите там вверху страницы остаются еще несколько слов через вертикальную черточку не принадлежат тоже основному тексту их тоже можно удалить и еще встречаются сноски, при удалении сопротивляются пишут типа недопустимое действие или что-то такое.

6

Re: Помогите удалить сразу все рамки с содержимым из word

Слова эти принадлежат основному тексту. Они набраны методом Вставка-->Символ

7

Re: Помогите удалить сразу все рамки с содержимым из word

aap77 пишет:

Слова эти принадлежат основному тексту. Они набраны методом Вставка-->Символ

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

8

Re: Помогите удалить сразу все рамки с содержимым из word

Для начала вот модифицированный макрос так как в Вашем файле встречаются несколько видов рамок с текстом

Public Sub Test()
Dim shp As Shape
Dim frm As Frame
    For Each shp In ActiveDocument.Shapes
        If shp.TextFrame.TextRange.Characters.Count >= 1 Then
            shp.Delete
        End If
    Next shp
    For Each frm In ActiveDocument.Frames
        frm.Range.Select
        frm.Range.Delete
        frm.Delete
        Selection.Delete
    Next frm
End Sub

9

Re: Помогите удалить сразу все рамки с содержимым из word

aap77 пишет:

Для начала вот модифицированный макрос так как в Вашем файле встречаются несколько видов рамок с текстом

Public Sub Test()
Dim shp As Shape
Dim frm As Frame
    For Each shp In ActiveDocument.Shapes
        If shp.TextFrame.TextRange.Characters.Count >= 1 Then
            shp.Delete
        End If
    Next shp
    For Each frm In ActiveDocument.Frames
        frm.Range.Select
        frm.Range.Delete
        frm.Delete
        Selection.Delete
    Next frm
End Sub

Работает великолепно

10

Re: Помогите удалить сразу все рамки с содержимым из word

А вот макрос по ссылкам

Public Sub Test12()
Dim ft As Footnote
   For Each ft In ActiveDocument.Footnotes
    ft.Delete
    Next ft
End Sub

11

Re: Помогите удалить сразу все рамки с содержимым из word

aap77 пишет:

А вот макрос по ссылкам

Public Sub Test12()
Dim ft As Footnote
   For Each ft In ActiveDocument.Footnotes
    ft.Delete
    Next ft
End Sub

сейчас попробовала предыдущий макрос (рамки) на большом документе, он выдал
ошибку:Run-time error 5826

12

Re: Помогите удалить сразу все рамки с содержимым из word

Значит там у Вас якая-то бяка еще есть, не указанная в файле примера. Надо больше информации

13

Re: Помогите удалить сразу все рамки с содержимым из word

Ekaterina пишет:
aap77 пишет:

Значит там у Вас якая-то бяка еще есть, не указанная в файле примера. Надо больше информации

сейчас файл прикреплю

посмотрели?

14

Re: Помогите удалить сразу все рамки с содержимым из word

Ципихович Эндрю пишет:

при распаковке сказало, что файл испорчен

Добрый день!
Высылаю Вам файл еще раз, уже без архива.
Посмотрите пожауйста что макросу мешает smile

Post's attachments

{00087}_sw-zwischenbericht-2004-Q2_de.doc 978.12 Кб, 4 скачиваний с 2012-06-18 

You don't have the permssions to download the attachments of this post.

15

Re: Помогите удалить сразу все рамки с содержимым из word

Ekaterina начал разбирать Ваш файл сразу куча вопросов
1. По макросу Рамки я разобрался в причине ошибки, я ее отключил, потому что она возникает из-за вставленных объектов с картинками. Нужны ли они?
2. В фале также присутствует разные колонтитулы с содержимым, нужны ли они.
3. Почти каждая страница оформлена как раздел Word, разными настройками (размер, поля, количество колонок, настройки колонтитулов и тп). Нужно ли привести все к единым настройкам.
4. В файле имеются таблицы в рамках, нужно ли их сохранять?
Вот так для начала.

16

Re: Помогите удалить сразу все рамки с содержимым из word

aap77 пишет:

Ekaterina начал разбирать Ваш файл сразу куча вопросов
1. По макросу Рамки я разобрался в причине ошибки, я ее отключил, потому что она возникает из-за вставленных объектов с картинками. Нужны ли они?
2. В фале также присутствует разные колонтитулы с содержимым, нужны ли они.
3. Почти каждая страница оформлена как раздел Word, разными настройками (размер, поля, количество колонок, настройки колонтитулов и тп). Нужно ли привести все к единым настройкам.
4. В файле имеются таблицы в рамках, нужно ли их сохранять?
Вот так для начала.

Добрый день!
Спасибо, что Вы еще со мной возитесь!
Таблицы, их названия, колонтитулы, рисунки и их описание, сноски, ссылки и т.д. надо удалить, никакие настройки ворда не нужны после удаления всего лишнего текст проверяется  на орфографию и сохраняется в  юникоде.
Вообще реально все это сделать программно?
С уважением Екатерина

17

Re: Помогите удалить сразу все рамки с содержимым из word

Конечно можно.

18

Re: Помогите удалить сразу все рамки с содержимым из word

Можно, даже напрямую из Word, в InDesign(это прога верстки)  залезать и управлять прямо из Worda

19

Re: Помогите удалить сразу все рамки с содержимым из word

aap77 пишет:

Можно, даже напрямую из Word, в InDesign(это прога верстки)  залезать и управлять прямо из Worda

Для меня это высшая математика, а можно как-то макросами ободрать:) или может есть возможность просто текст выдеить, который без этих рамок, картинок и всего прочего

20

Re: Помогите удалить сразу все рамки с содержимым из word

Можно макросами, я практически все ваши пожелания отработал в черновом варианте

21

Re: Помогите удалить сразу все рамки с содержимым из word

Ekaterina, свяжитесь со мной через личку paa1977@mail.ru

22

Re: Помогите удалить сразу все рамки с содержимым из word

aap77 пишет:

Можно макросами, я практически все ваши пожелания отработал в черновом варианте

я  пользуюсь некоторыми макросами - удаление картинок, колонтитулов, но они не до конца очищают документ приходиться вручную доудалять, особенно рамки ну просто фантастика smile

23

Re: Помогите удалить сразу все рамки с содержимым из word

Так у меня приложение комплексно все сделает и сохранит текст в отдельном файле.

24

Re: Помогите удалить сразу все рамки с содержимым из word

Одно нажатие кнопочки, и через несколько минут, можно проверять орфографию и отправлять файл дальше

25

Re: Помогите удалить сразу все рамки с содержимым из word

aap77 пишет:

Одно нажатие кнопочки, и через несколько минут, можно проверять орфографию и отправлять файл дальше

здорово, как мне все это заполучить smile

26

Re: Помогите удалить сразу все рамки с содержимым из word

Ekaterina пишет:
aap77 пишет:

Одно нажатие кнопочки, и через несколько минут, можно проверять орфографию и отправлять файл дальше

здорово, как мне все это заполучить smile

Хорошо я не против, только если он себя будет где-то некорректно вести, Вы мне поможете его подравнять;), вроде гарантийного обслуживания smile
С уважением Екатерина.

27

Re: Помогите удалить сразу все рамки с содержимым из word

Ekaterina пишет:

Хорошо я не против, только если он себя будет где-то некорректно вести, Вы мне поможете его подравнять;), вроде гарантийного обслуживания smile
С уважением Екатерина.

Тогда я делаю шаблон и завтра по мере готовности вышлю. Шаблон корректирую на прикрепленном Вами в посте 14 файле. smile

28

Re: Помогите удалить сразу все рамки с содержимым из word

aap77 пишет:
Ekaterina пишет:

Хорошо я не против, только если он себя будет где-то некорректно вести, Вы мне поможете его подравнять;), вроде гарантийного обслуживания smile
С уважением Екатерина.

Тогда я делаю шаблон и завтра по мере готовности вышлю. Шаблон корректирую на прикрепленном Вами в посте 14 файле. smile

Хорошо.
Вспомнила, надо убрать ссылки по тексту, которые стоят в верхнем регистре, при сохранении
в юникоде они переходят в текст и прилипают к словам, их  тяжело находить и приходится каждую цифру удалять.
Реквизиты скиньте:)
С уважением Екатерина

29

Re: Помогите удалить сразу все рамки с содержимым из word

aap77 пишет:
Ekaterina пишет:

Хорошо я не против, только если он себя будет где-то некорректно вести, Вы мне поможете его подравнять;), вроде гарантийного обслуживания smile
С уважением Екатерина.

Тогда я делаю шаблон и завтра по мере готовности вышлю. Шаблон корректирую на прикрепленном Вами в посте 14 файле. smile

Давайте я Вам на почту файл побольше скину, а то тут большие не пропускает,пришлось маленький прикрепить smile

30

Re: Помогите удалить сразу все рамки с содержимым из word

Скидывате

31

Re: Помогите удалить сразу все рамки с содержимым из word

Жду файл

32

Re: Помогите удалить сразу все рамки с содержимым из word

aap77 пишет:

Скидывате

скинула smile

33

Re: Помогите удалить сразу все рамки с содержимым из word

Получил, работаю, все открылось

34

Re: Помогите удалить сразу все рамки с содержимым из word

aap77 пишет:

Получил, работаю, все открылось

Добрый вечер!
Вы со мной вообще не хотите общаться?
Пожалуйста урегулируйте вопрос с моими деньгами.

35

Re: Помогите удалить сразу все рамки с содержимым из word

aap77 пишет:

Для начала вот модифицированный макрос так как в Вашем файле встречаются несколько видов рамок с текстом

Public Sub Test()
Dim shp As Shape
Dim frm As Frame
    For Each shp In ActiveDocument.Shapes
        If shp.TextFrame.TextRange.Characters.Count >= 1 Then
            shp.Delete
        End If
    Next shp
    For Each frm In ActiveDocument.Frames
        frm.Range.Select
        frm.Range.Delete
        frm.Delete
        Selection.Delete
    Next frm
End Sub

Этот замечательный макрос удаляет содержимое (т.е., текст) тех таблиц, которые находятся в рамках. Остаются только пустые таблицы.

А как модифицировать этот макрос, чтобы он удалял только сами рамки, а таблицы с текстом оставались?

Спасибо!