word de tekrar eden satırı silme

[deppocu]

Kolay gelsin. Çok araştırma yapmama rağmen bir sonuca ulaşamadım maalesef. Yardımcı olursanız çok memnun olurum. Teşekkürler şimdiden

elimdeki word dosyasının içinde tekrar eden satırlar var onların silinmesini istiyorum fakat belli bir kurala uyan satırlardan bahsediyorum. ek te dosyayı ve istediğim işlemi açıklamaya çalıştım.

 

[leumruk]

Merhaba,
Örneği deneyiniz.

Sub makro1()
Dim knt As Boolean
Application.ScreenUpdating = False
knt = False
x = ActiveDocument.Paragraphs.Count
For prg = ActiveDocument.Paragraphs.Count To 1 Step -1

uzn = Len(ActiveDocument.Paragraphs(prg).Range)
If Left(ActiveDocument.Paragraphs(prg).Range, uzn - 1) = "AB 1234" Then
son = x: knt = True
End If

If Left(ActiveDocument.Paragraphs(prg).Range, uzn - 1) = "MC OZI" Then
If knt = True Then
ilk = x
knt = False

For y = son To ilk Step -1
    For Z = son To ilk Step -1
        If y <> Z Then
        If ActiveDocument.Paragraphs(y).Range = ActiveDocument.Paragraphs(Z).Range Then
            ActiveDocument.Paragraphs(y).Range = """ " & Chr(10)
        End If
        End If
    Next
Next
End If
End If
x = x - 1
Next

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = """ ^p"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
Application.ScreenUpdating = True
MsgBox "İşlem tamam.", vbInformation, "l e u m r u k"
End Sub

 

[deppocu]

çok teşekkürler vermiş olduğunuz hızlı yanıt için. kolay gelsin