Hi Dave,

I'm afraid your requirements are a little under-spec'ed.

The following simple macro will delete all floating and inline graphics (and
textboxes, too) from the body of the current document. It won't touch
anything in the headers or footers, footnotes, endnotes,...  See
http://word.mvps.org/faqs/macrosvba/FindReplaceAllWithVBA.htm for an
explanation of all the storyranges in a document.

Sub DeleteGraphics()
  Dim oShp As Shape
  Dim oIlShp As InlineShape

  For Each oShp In ActiveDocument.Shapes
     oShp.Delete
  Next oShp

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