1

Тема: Помогите удалить таблицы по всему документу

Ворд 2003
Подскажите пожалуйста как полностью удалить таблицы и их содержимое по всему документу?
Заранее благодарен

Никогда не теряй терпения — это последний ключ, открывающий двери.

2

Re: Помогите удалить таблицы по всему документу

For q = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(q).Delete
Next q

3

Re: Помогите удалить таблицы по всему документу

Ципихович Эндрю пишет:
For q = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(q).Delete
Next q

Красивое решение!  smile

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

4

Re: Помогите удалить таблицы по всему документу

Ципихович Эндрю пишет:
For q = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(q).Delete
Next q

Добрый день, я извиняюсь в ворде я вообще новичок,
скажите пожалуйста а куда это выражение вставлять?

Никогда не теряй терпения — это последний ключ, открывающий двери.

5

Re: Помогите удалить таблицы по всему документу

В главный макрос блин big_smile

6

Re: Помогите удалить таблицы по всему документу

Alex_Gur пишет:

Красивое решение!  smile

Фор еах?? похоже не для этого юзера, да я и сам этим редко пользуюсь

7

Re: Помогите удалить таблицы по всему документу

кукара44а пишет:

Добрый день, я извиняюсь в ворде я вообще новичок,
скажите пожалуйста а куда это выражение вставлять?

ставите на запись макрос, будет указано Макрос1, указываете что он запускается при нажатии нужных кнопок, записываете всякую ерунду, а потом вместо ерунды в Макрос1 мои строки кода

8

Re: Помогите удалить таблицы по всему документу

Простите меня, Эндрю, мне бы хотелось написать об этом поподробней, так как многие спрашивают.

Для применения макроса нужно сделать следующее:
1. Если в Word нет вкладки Разработчик, то создать эту вкладку.
2. Разрешить запуск макросов (установить режим Включить все макросы).
3. Открыть Visual Basic Editor (Alt+F11).
4. Скопировать текст макроса в окно Visual Basic Editor.
Проверить, чтобы в макросе были операторы Sub и End Sub.
5. При необходимости внести изменения в макрос и сохранить.
6. Перейти в пользовательский режим Word и применить макрос к нужному файлу.

Если будут вопросы – спрашивайте.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

9

Re: Помогите удалить таблицы по всему документу

прощаю, тогда договаривайте
>Проверить, чтобы в макросе были операторы Sub и End Sub.

Sub иfdgfsdgnfsdakjjdshbgjushbegfijhewgjihrewijg()

End Sub

10

Re: Помогите удалить таблицы по всему документу

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

прощаю, тогда договаривайте
>Проверить, чтобы в макросе были операторы Sub и End Sub.

Sub иfdgfsdgnfsdakjjdshbgjushbegfijhewgjihrewijg()

End Sub

smile

Sub УдалениеТаблиц()

End Sub
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

11

Re: Помогите удалить таблицы по всему документу

Alex_Gur пишет:

Простите меня, Эндрю, мне бы хотелось написать об этом поподробней, так как многие спрашивают.

Для применения макроса нужно сделать следующее:
1. Если в Word нет вкладки Разработчик, то создать эту вкладку.
2. Разрешить запуск макросов (установить режим Включить все макросы).
3. Открыть Visual Basic Editor (Alt+F11).
4. Скопировать текст макроса в окно Visual Basic Editor.
Проверить, чтобы в макросе были операторы Sub и End Sub.
5. При необходимости внести изменения в макрос и сохранить.
6. Перейти в пользовательский режим Word и применить макрос к нужному файлу.

Если будут вопросы – спрашивайте.


Сделал макрос, выглядит вот-так
Sub table()
For q = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(q).Delete
Next q
End Sub

При запуске выдает ошибку:
Run-time error '5941'
Запрашиваемый номер семейства не существует

Никогда не теряй терпения — это последний ключ, открывающий двери.

12

Re: Помогите удалить таблицы по всему документу

А попробуйте сделать так:

Sub table()
     For q = 1 To ActiveDocument.Tables.Count
          ActiveDocument.Tables(1).Delete
     Next q
End Sub
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

13

Re: Помогите удалить таблицы по всему документу

Alex_Gur пишет:

А попробуйте сделать так:

Sub table()
     For q = 1 To ActiveDocument.Tables.Count
          ActiveDocument.Tables(1).Delete
     Next q
End Sub

Та-же ошибка, и он как-то начинает их удалять, а потом останавливается
Прилагаю документ

Post's attachments

table.doc 177.5 Кб, 5 скачиваний с 2012-06-14 

You don't have the permssions to download the attachments of this post.
Никогда не теряй терпения — это последний ключ, открывающий двери.

14

Re: Помогите удалить таблицы по всему документу

Alex_Gur пишет:

А попробуйте сделать так:

Sub table()
     For q = 1 To ActiveDocument.Tables.Count
          ActiveDocument.Tables(1).Delete
     Next q
End Sub

Точнее я извиняюсь последний макрос работает, но оставляет за собой объекты,
которые мне тоже не нужны по всему тексту
Можно это сделать за один прием?

Никогда не теряй терпения — это последний ключ, открывающий двери.

15

Re: Помогите удалить таблицы по всему документу

>оставляет за собой объекты, которые мне тоже не нужны по всему тексту
какие
>Можно это сделать за один прием?
да

16

Re: Помогите удалить таблицы по всему документу

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

>оставляет за собой объекты, которые мне тоже не нужны по всему тексту
какие
>Можно это сделать за один прием?
да

Я не знаю как они называются:(
прилагаю файл, выделил их зеленым, их вообще-то надо удалить по всему тексту.

Post's attachments

объекты.doc 49.5 Кб, 7 скачиваний с 2012-06-14 

You don't have the permssions to download the attachments of this post.
Никогда не теряй терпения — это последний ключ, открывающий двери.

17

Re: Помогите удалить таблицы по всему документу

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

>оставляет за собой объекты, которые мне тоже не нужны по всему тексту
какие
>Можно это сделать за один прием?
да

Я приношу свои извинения, можно до конца закончить тему с таблицами и объектами.
Мне их приходится удалять по одному, помогите пожалуйста.

Никогда не теряй терпения — это последний ключ, открывающий двери.