I am hoping to be able to write a macro that deletes a paragraph if it follows a duplicate paragraph. I have written a macro to delete all the unwanted tags etc from an srt file, and just leave the subtitle's words. What generally happens is that the resulting files have 3 duplicate paragraphs in a row, but not exclusively. The subtitles are in Russian cyrillic, so none of the online srt to text converters want to know.
I re-wrote a macro I found on the net (always a bad start, I know) and surprise surprise, it doesnt work...




Sub DeleteDuplicateParagraphsInSRTsOnly()


Dim p1 As Paragraph
Dim p2 As Paragraph
Dim p3 As Paragraph


For Each p1 In ActiveDocument.Paragraphs
For Each p3 In ActiveDocument.Paragraphs
If p1.Range.Text = p3.Range.Text Then p3.Range.Delete
For Each p2 In ActiveDocument.Paragraphs
If p1.Range.Text = p2.Range.Text Then p2.Range.Delete
Next p1

End Sub


Obviously I don't know what I'm doing. I had hoped it would just read the 3rd paragraph, compare it to the first, delete if identical, then apply the same rule to the 2nd paragraph, then move on to the compare what was originally the 4th paragraph with the 7th, etc.


What am I miossing in order to get this to work?


Thanks