Sub DeleteAllFigures()
' Paul Beverley - Version 31.08.16
' Delete all images from a file that have a caption
For Each myPic In ActiveDocument.InlineShapes
Set rng = myPic.range
rng.Collapse wdCollapseEnd
rng.MoveEnd wdCharacter, 1
rng.Select
If Asc(rng) = 13 Then rng.Delete
rng.MoveEnd wdCharacter, 1
If Asc(rng) = 13 Then rng.Delete
rng.MoveEnd wdCharacter, 3
gotOne = (rng = "(a)" Or rng = "(b)" Or rng = "(c)")
rng.MoveEnd wdCharacter, 15
If InStr(rng, "Fig") > 0 Or gotOne = True Then
myPic.Delete
i = i + 1
End If
Next myPic
MsgBox "Deleted:" & i & " figures"
End Sub