Recently I had a word document which when being merged would display random images on random pages in the Footer. I used Office 2010 to remove all the Footer and Header however it still came up with them.<\/p>\r\n
I then used the find and replace function to search for ^g ( Graphics ) pictures however these images wearn’t inline so it didn’t fine any.<\/p>\r\n
Thanks to the below trackback I was able to run the below Macro to remove all images from the Document , Inline and Out! Recently I had a word document which when being merged would display random images on random pages in the Footer. I used Office 2010 to remove all […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[4],"tags":[577,579,578],"class_list":["post-1044","post","type-post","status-publish","format-standard","hentry","category-random","tag-delete-all-images-word","tag-find-all-images-inside-of-word","tag-strip-all-images-word"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t
Sub demo()<\/strong>
Dim oShp As Shape<\/strong>
Dim oIShp As InlineShape<\/strong>
For Each oShp In ActiveDocument.Shapes<\/strong>
oShp.Delete<\/strong>
Next<\/strong>
For Each oIShp In ActiveDocument.InlineShapes<\/strong>
oIShp.Delete<\/strong>
Next<\/strong>
End Sub<\/strong>
Can be added via , Tools , Macro, Macro’s. Add the following code and click the play button and if it asks run demo!<\/p>\r\n","protected":false},"excerpt":{"rendered":"