Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Удаление всех картинок из вордовского файла - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Удаление всех картинок из вордовского файла
Удаление всех картинок из вордовского файла
Alex_Word Дата: Воскресенье, 05.03.2017, 14:33 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте все!

Необходимо удалить все картинки из вордовского файла, но штатные инструменты пасуют (Word 2016).

Пробовал:

1. Искать картинки по префиксу ^g. Результат - картинки не находятся, соответственно заменить на пробел их нельзя.

2. Пробовал макросы.

[vba]
Код
Sub Picture_delete()
Dim oInlineShape As InlineShape
For Each oInlineShape In ActiveDocument.InlineShapes
   oInlineShape.Delete
Next
End Sub
[/vba]

И аналогичный:

[vba]
Код
Sub AllImgDelete()

Dim Img As InlineShape
For Each Img In ActiveDocument.InlineShapes
Img.Delete
Next Img
End Sub
[/vba]

Тоже не удаляет.
Поскольку файл прицепить к сообщению нельзя ввиду размера - даю прямую ссылку:Удалено. Нарушение Правил форума

Спасибо всем откликнувшимся!


Сообщение отредактировал Pelena - Воскресенье, 05.03.2017, 14:49
 
Ответить
СообщениеЗдравствуйте все!

Необходимо удалить все картинки из вордовского файла, но штатные инструменты пасуют (Word 2016).

Пробовал:

1. Искать картинки по префиксу ^g. Результат - картинки не находятся, соответственно заменить на пробел их нельзя.

2. Пробовал макросы.

[vba]
Код
Sub Picture_delete()
Dim oInlineShape As InlineShape
For Each oInlineShape In ActiveDocument.InlineShapes
   oInlineShape.Delete
Next
End Sub
[/vba]

И аналогичный:

[vba]
Код
Sub AllImgDelete()

Dim Img As InlineShape
For Each Img In ActiveDocument.InlineShapes
Img.Delete
Next Img
End Sub
[/vba]

Тоже не удаляет.
Поскольку файл прицепить к сообщению нельзя ввиду размера - даю прямую ссылку:Удалено. Нарушение Правил форума

Спасибо всем откликнувшимся!
Автор - Alex_Word
Дата добавления - 05.03.2017 в 14:33
Pelena Дата: Воскресенье, 05.03.2017, 14:50 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19403
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
Alex_Word, зачем нам 250 страниц текста?! Оставьте пару штук и выкладывайте файл сюда

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеAlex_Word, зачем нам 250 страниц текста?! Оставьте пару штук и выкладывайте файл сюда
Автор - Pelena
Дата добавления - 05.03.2017 в 14:50
Alex_Word Дата: Воскресенье, 05.03.2017, 14:59 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Вот, выложил.
К сообщению приложен файл: 8245618.docx (35.0 Kb)
 
Ответить
СообщениеВот, выложил.
Автор - Alex_Word
Дата добавления - 05.03.2017 в 14:59
Pelena Дата: Воскресенье, 05.03.2017, 15:41 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19403
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
Может так?
[vba]
Код
Sub Picture_delete()
    Dim sh As Shape
    For Each sh In ActiveDocument.Shapes
        sh.Delete
    Next
End Sub
[/vba]
А цель конечная какая?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеМожет так?
[vba]
Код
Sub Picture_delete()
    Dim sh As Shape
    For Each sh In ActiveDocument.Shapes
        sh.Delete
    Next
End Sub
[/vba]
А цель конечная какая?
Автор - Pelena
Дата добавления - 05.03.2017 в 15:41
Alex_Word Дата: Воскресенье, 05.03.2017, 15:59 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Магия!

Спасибо большое.
 
Ответить
СообщениеМагия!

Спасибо большое.
Автор - Alex_Word
Дата добавления - 05.03.2017 в 15:59
Alex_Word Дата: Воскресенье, 05.03.2017, 16:46 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Цитата
А цель конечная какая?


Вообще этот документ нужно построчно перегнать в Эксель.
 
Ответить
Сообщение
Цитата
А цель конечная какая?


Вообще этот документ нужно построчно перегнать в Эксель.
Автор - Alex_Word
Дата добавления - 05.03.2017 в 16:46
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Удаление всех картинок из вордовского файла
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!