Как удалить картинки в документе Word

Если в документе Word необходимо удалить все картинки, то если картинок немного, можно это сделать вручную, а если много, то можно быстро удалить их при помощи достаточно простого макроса VBA.

Удаление всех картинок в активном документе Word

Для разового удаления ненужной картинки вполне подходят стандартные методы, для удаления же всех картинок в активном документе Word лучше подойдет макрос VBA, который найдет и удалит каждую картинку документа. Макрос работает одинаково в любой версии.

Sub AllImgDelete()
'Удаление всех картинок в активном документе
Dim Img As InlineShape
    For Each Img In ActiveDocument.InlineShapes
        Img.Delete
    Next Img
End Sub

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