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.

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.

Thanks to the below trackback I was able to run the below Macro to remove all images from the Document , Inline and Out!

Sub demo()

Dim oShp As Shape

Dim oIShp As InlineShape

For Each oShp In ActiveDocument.Shapes

oShp.Delete

Next

For Each oIShp In ActiveDocument.InlineShapes

oIShp.Delete

Next

End Sub

Can be added via , Tools , Macro, Macro’s. Add the following code and click the play button and if it asks run demo!