Delete all paragraphs containing a particular image using a VBA macro in MS Word

[ashu1990]

i have made this for text comparision you can compare with height,width and more. for comparing with your local machine image

try this

Sub test()
Dim pic As Shape, a As Shape, b As Shape
''''uses only 2 pics at a time
For Each pic In ActiveSheet.Shapes
    If pic.Type = msoPicture Then
    
        If a Is Nothing Then
        Set a = pic
        ElseIf b Is Nothing Then
        Set b = pic
        End If
    
        
    End If
    
Next pic
''''types of comparision
' a.Height
' a.Width
' a.AutoShapeType
' a.ID

If a.AlternativeText = b.AlternativeText Then
MsgBox "Caught Them"
Exit Sub
End If

End Sub

or use this for all pics comparing height and width

Sub test()
Dim pic As Shape, a As Shape, b As Shape
''''for all the pics
For Each pic In ActiveSheet.Shapes
    If pic.Type = msoPicture Then
        If pic.Height = 0 And pic.Width = 0 Then
        MsgBox "delete your row"
        Exit Sub
        End If
    End If
    
Next pic

End Sub