Everyday, I produce an MS Word document containing the day's TV listings.

In order to minimize printing, I delete all the TV network icons (the CBS 'eye',
the NBC peacock, etc). However, I have to do this one by one, and it's quite
tedious.

Is there a way to delete all these icons at once?

---

Request for Question Clarification by hummer-ga on 01 Jul 2006 09:53 PDT

Hi rambler,

To disable graphics, try this:

1. Document settings: 
Click View / Print layout
2. Program settings: 
Click Tools / Options   
Go to View tab
a. Check Picture Placeholders checkbox
b. In the Print & Web layout options section
Uncheck Drawings & Objects anchors boxes
Go to Print tab
b. Include with document: 
Uncheck Drawing objects box

For help, you can look at this website, but the directions are for
enabling graphics rather than disabling.
http://www.rivier.edu/staff/acallahan/webpages/Word/graphicsnotprinting.htm

I hope that helps!
hummer

---

Request for Question Clarification by hammer-ga on 01 Jul 2006 14:54 PDT

Rambler,

Try this code on a copy of your document. See if it deletes what you
don't want and leaves what you do want.

Sub DitchPictures()
Dim objPic As InlineShape

    For Each objPic In ActiveDocument.InlineShapes
        objPic.Delete
    Next objPic
    
End Sub


- Hammer

---

Clarification of Question by rambler-ga on 01 Jul 2006 15:41 PDT

Your code works beautifully. Please post your answer.

Rambler,

Try this code on a copy of your document. See if it deletes what you
don't want and leaves what you do want.

Sub DitchPictures()
Dim objPic As InlineShape

    For Each objPic In ActiveDocument.InlineShapes
        objPic.Delete
    Next objPic
    
End Sub


- Hammer


Search strategy
---------------
Searching for 'word delete pictures' led me to the information that
the pictures in a Word document are accessed through the InlineShapes
collection. Once I knew this, I was able to write the VBA to find and
delete them.

Exactly the information I needed.

Eveb SImpler

Do to EDIT

Then REPLACE

Then click MORE

Then click SPECIAL

Choose GRAPHIC

Then cluck OK

Job done;-)