Sub DeleteCertainStrings()

Set oRng = ActiveDocument.StoryRanges(1)
 
    With oRng.Find
        .text = "Nnnnnnnnnnnn/Nnnnnnnnn^p"
        .Replacement.text = ""
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchWildcards = False
        .Execute Replace:=wdReplaceAll
        .text = "Nn Nnn Nnnnn. Nnnn nn NNN Nnnnnnnnn ^p"
        .Replacement.text = ""
        .Execute Replace:=wdReplaceAll
        .text = "Nnn nnnnnnnnnn nnnnn nn nnn nnnnn nn nnnnnnnnnn^|nnnn nnn nnnnnnnn nn Nnnnn Nnnnnnn’n “Nnnnnnn” (G3-1v).^p"
        .Replacement.text = ""
        .Execute Replace:=wdReplaceAll
    End With
End Sub