View Single Post
 
Old 10-29-2013, 03:54 AM
macropod's Avatar
macropod macropod is offline Windows 7 32bit Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,956
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

Try the following macro - it will delete all graphics while leaving your other formatting alone.
Code:
Sub DeleteGraphics()
Application.ScreenUpdating = False
Dim Rng As Range
With ActiveDocument
  For Each Rng In .StoryRanges
    With Rng
      While .InlineShapes.Count > 0
        .InlineShapes(1).Delete
      Wend
      While .ShapeRange.Count > 0
        .ShapeRange(1).Delete
      Wend
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote