Macro for deleting mult. pictures in word

I need a macro for deleting multiple pictures (over 400) in a 2003 word
document.
--
Howard Irwin

JeanGuyMarcil
Tue Mar 04 08:51:00 PST 2008

"Howard Irwin" wrote:

> I need a macro for deleting multiple pictures (over 400) in a 2003 word
> document.

What Word version?

Do you want to delete all pictures in the document or just some of them?
Are all pictures floating or inline with text, or a mix?
Why do you need a macro? Are you going to do this often?

Have you tried writing the macro? Do you have any code?

Jay
Tue Mar 04 08:53:16 PST 2008

Howard Irwin wrote:
> I need a macro for deleting multiple pictures (over 400) in a 2003
> word document.

You don't need a macro for this.

Open the Replace dialog and click the More button. Click the Special button
at the bottom and choose "Graphic" from the popup menu. This places the code
^g in the Find What box. Leave the Replace With box empty and click the
Replace All button.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

Jay
Tue Mar 04 09:04:05 PST 2008

Jay Freedman wrote:
> Howard Irwin wrote:
>> I need a macro for deleting multiple pictures (over 400) in a 2003
>> word document.
>
> You don't need a macro for this.
>
> Open the Replace dialog and click the More button. Click the Special
> button at the bottom and choose "Graphic" from the popup menu. This
> places the code ^g in the Find What box. Leave the Replace With box
> empty and click the Replace All button.

I have to (possibly) overrule myself -- this will remove only in-line
graphics, not floating ones.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

JeanGuyMarcil
Tue Mar 04 09:06:03 PST 2008

"Jay Freedman" wrote:

> Howard Irwin wrote:
> > I need a macro for deleting multiple pictures (over 400) in a 2003
> > word document.
>
> You don't need a macro for this.
>
> Open the Replace dialog and click the More button. Click the Special button
> at the bottom and choose "Graphic" from the popup menu. This places the code
> ^g in the Find What box. Leave the Replace With box empty and click the
> Replace All button.

Any way to make this work with floating gaphics? Or am I missing someting
easy (again!)?

Jay
Tue Mar 04 09:37:35 PST 2008

Jean-Guy Marcil wrote:
> "Jay Freedman" wrote:
>
>> Howard Irwin wrote:
>>> I need a macro for deleting multiple pictures (over 400) in a 2003
>>> word document.
>>
>> You don't need a macro for this.
>>
>> Open the Replace dialog and click the More button. Click the Special
>> button at the bottom and choose "Graphic" from the popup menu. This
>> places the code ^g in the Find What box. Leave the Replace With box
>> empty and click the Replace All button.
>
> Any way to make this work with floating gaphics? Or am I missing
> someting easy (again!)?

No, I think floating graphics will require a macro. This works, but only for
graphics in the main body of the document:

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

If there are also graphics in headers, footers, and other stories, the usual
folderol is needed
(http://www.word.mvps.org/FAQs/MacrosVBA/FindReplaceAllWithVBA.htm).

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.