Deleting images

[Cristiano]

I have many Word file with an image (in the header or in the page, but just
one image).
I need the VBA code to delete the image (I know how to load all the .doc
files).

Thanks
Cristiano

 

[Anne Troy]

You can do a Find and enter ^g into the Find what box, and put nothing in
the Replace with box, so you could record that macro to get the code you
need. Or perhaps you can use some of the code here:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=104
or
http://www.vbaexpress.com/kb/getarticle.php?kb_id=45
*******************
~Anne Troy

www.OfficeArticles.com
www.MyExpertsOnline.com

 

[Chuck]

The following code will delete Shapes and InlineShapes throughout the
document. I'm sure there's a more efficient way of doing this but the
following is at least thorough. You can add tests to delete only certain
kinds of shapes/inlineshapes but judging from your post that isn't
necessary... HTH

Dim rngStory As Range
Dim shpShape As Shape
Dim shpInline As InlineShape
Dim hdrHeader As HeaderFooter
Dim ftrFooter As HeaderFooter
Dim x As Long

With ActiveDocument
'Delete InlineShapes from all Stories
For Each rngStory In .StoryRanges
For Each shpInline In rngStory.InlineShapes
shpInline.Delete
Next shpInline
Next rngStory
'Shapes only supported in headers/footers/body
For Each shpShape In .Shapes
shpShape.Delete
Next shpShape
For i = 1 To .Sections.Count
For Each hdrHeader In .Sections(i).Headers
For Each shpShape In hdrHeader.Shapes
shpShape.Delete
Next shpShape
Next hdrHeader
Next i
For i = 1 To .Sections.Count
For Each ftrFooter In .Sections(i).Headers
For Each shpShape In ftrFooter.Shapes
shpShape.Delete
Next shpShape
Next ftrFooter
Next i
End With