Sub DeleteCertainStrings()

Set oRng = ActiveDocument.StoryRanges(1)
 
With oRng.Find
.Text = "Nnnnnnnnnnnn/Nnnnnnnnn^p" '1: text to delete except ^p, which is the 1st para of the 1st page
.Execute
End With
If oRng.Find.Found = True Then
oRng.Delete
End If

With oRng.Find '2: text to delete (including final space) except ^p, the 1st para of the 2nd page
 .Text = "Nn Nnn Nnnnn. Nnnn nn NNN Nnnnnnnnn ^p"
 .Execute
End With
If oRng.Find.Found = True Then
oRng.Delete
 End If

With oRng.Find '3: to delete everything except ^p, followed by 10 ^p's, which must remain
.Text = "Nnn nnnnnnnnnn nnnnn nn nnn nnnnn nn nnnnnnnnnn^l
nnnn nnn nnnnnnnn nn Nnnnn Nnnnnnn’n “Nnnnnnn” (G3-1v).^p"
.Execute
End With
If oRng.Find.Found = True Then
oRng.Delete
 End If
End Sub