Hi Thanks for your response,
I have written something similar to your second solution,
Sub DeletePictureParagraphs()
Dim objPic As InlineShape

For Each objPic In ActiveDocument.InlineShapes
If objPic.Height = 0.33 And objPic.Width = 0.33 Then
objPic.Range.Delete
Exit Sub
End If
Next objPic
End Sub

but I am facing a problem. none of the lines which I wanted are getting deleted ( probably the height and width which I mentioned in the code(from the properties of the picture in inches) are not in line with what the code is expecting. I haven't tried the first method which u suggested as I just don't want to depend on comparing the picture from local picture. I have uploaded my file in the below location as I am unable to attach here. Please help. I want to delete all the paragraphs ( statements/sentences) which contain the desktop picture/icon at the beginning of the line.

Free large file exchange service without size limits

Free large file exchange service without size limits