Тема: Помогите удалить таблицы по всему документу
Ворд 2003
Подскажите пожалуйста как полностью удалить таблицы и их содержимое по всему документу?
Заранее благодарен
Никогда не теряй терпения — это последний ключ, открывающий двери.
Re: Помогите удалить таблицы по всему документу
For q = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(q).Delete
Next q
- Alex_Gur
- Модератор
- Неактивен
Re: Помогите удалить таблицы по всему документу
Ципихович Эндрю пишет:
For q = 1 To ActiveDocument.Tables.Count ActiveDocument.Tables(q).Delete Next q
Красивое решение! 
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
Re: Помогите удалить таблицы по всему документу
Ципихович Эндрю пишет:
For q = 1 To ActiveDocument.Tables.Count ActiveDocument.Tables(q).Delete Next q
Добрый день, я извиняюсь в ворде я вообще новичок,
скажите пожалуйста а куда это выражение вставлять?
Никогда не теряй терпения — это последний ключ, открывающий двери.
Re: Помогите удалить таблицы по всему документу
В главный макрос блин 
Re: Помогите удалить таблицы по всему документу
Alex_Gur пишет:
Красивое решение!
Фор еах?? похоже не для этого юзера, да я и сам этим редко пользуюсь
Re: Помогите удалить таблицы по всему документу
кукара44а пишет:
Добрый день, я извиняюсь в ворде я вообще новичок,
скажите пожалуйста а куда это выражение вставлять?
ставите на запись макрос, будет указано Макрос1, указываете что он запускается при нажатии нужных кнопок, записываете всякую ерунду, а потом вместо ерунды в Макрос1 мои строки кода
- Alex_Gur
- Модератор
- Неактивен
Re: Помогите удалить таблицы по всему документу
Простите меня, Эндрю, мне бы хотелось написать об этом поподробней, так как многие спрашивают.
Для применения макроса нужно сделать следующее:
1. Если в Word нет вкладки Разработчик, то создать эту вкладку.
2. Разрешить запуск макросов (установить режим Включить все макросы).
3. Открыть Visual Basic Editor (Alt+F11).
4. Скопировать текст макроса в окно Visual Basic Editor.
Проверить, чтобы в макросе были операторы Sub и End Sub.
5. При необходимости внести изменения в макрос и сохранить.
6. Перейти в пользовательский режим Word и применить макрос к нужному файлу.
Если будут вопросы – спрашивайте.
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
Re: Помогите удалить таблицы по всему документу
прощаю, тогда договаривайте
>Проверить, чтобы в макросе были операторы Sub и End Sub.
Sub иfdgfsdgnfsdakjjdshbgjushbegfijhewgjihrewijg()
End Sub
- Alex_Gur
- Модератор
- Неактивен
Re: Помогите удалить таблицы по всему документу
Ципихович Эндрю пишет:
прощаю, тогда договаривайте
>Проверить, чтобы в макросе были операторы Sub и End Sub.Sub иfdgfsdgnfsdakjjdshbgjushbegfijhewgjihrewijg()
End Sub
Sub УдалениеТаблиц()
End SubУдобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
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'
Запрашиваемый номер семейства не существует
Никогда не теряй терпения — это последний ключ, открывающий двери.
- Alex_Gur
- Модератор
- Неактивен
Re: Помогите удалить таблицы по всему документу
А попробуйте сделать так:
Sub table()
For q = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(1).Delete
Next q
End SubУдобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
Re: Помогите удалить таблицы по всему документу
Alex_Gur пишет:
А попробуйте сделать так:
Sub table() For q = 1 To ActiveDocument.Tables.Count ActiveDocument.Tables(1).Delete Next q End Sub
Та-же ошибка, и он как-то начинает их удалять, а потом останавливается
Прилагаю документ
Никогда не теряй терпения — это последний ключ, открывающий двери.
Re: Помогите удалить таблицы по всему документу
Alex_Gur пишет:
А попробуйте сделать так:
Sub table() For q = 1 To ActiveDocument.Tables.Count ActiveDocument.Tables(1).Delete Next q End Sub
Точнее я извиняюсь последний макрос работает, но оставляет за собой объекты,
которые мне тоже не нужны по всему тексту
Можно это сделать за один прием?
Никогда не теряй терпения — это последний ключ, открывающий двери.
Re: Помогите удалить таблицы по всему документу
>оставляет за собой объекты, которые мне тоже не нужны по всему тексту
какие
>Можно это сделать за один прием?
да
Re: Помогите удалить таблицы по всему документу
Ципихович Эндрю пишет:
>оставляет за собой объекты, которые мне тоже не нужны по всему тексту
какие
>Можно это сделать за один прием?
да
Я не знаю как они называются:(
прилагаю файл, выделил их зеленым, их вообще-то надо удалить по всему тексту.
Никогда не теряй терпения — это последний ключ, открывающий двери.
Re: Помогите удалить таблицы по всему документу
Ципихович Эндрю пишет:
>оставляет за собой объекты, которые мне тоже не нужны по всему тексту
какие
>Можно это сделать за один прием?
да
Я приношу свои извинения, можно до конца закончить тему с таблицами и объектами.
Мне их приходится удалять по одному, помогите пожалуйста.
Никогда не теряй терпения — это последний ключ, открывающий двери.