Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Re: Macro for deleting mult. pictures in word

1,960 views
Skip to first unread message

Jay Freedman

unread,
Mar 4, 2008, 11:53:16 AM3/4/08
to
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 Freedman

unread,
Mar 4, 2008, 12:04:05 PM3/4/08
to
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.

Jay Freedman

unread,
Mar 4, 2008, 12:37:35 PM3/4/08
to
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).

0 new messages