H,

as this is a programmer's group, I assume,
that you can adapt the following:

Sub Test400()
Dim rTmp As Range
Dim bA As Boolean ' a condition
Dim bB As Boolean ' another condition
Set rTmp = Selection.Paragraphs(1).Range
' process the paragraph the start of the selection is in
bA = False ' as you like
bB = True  ' as you like
If bA Then
  With rTmp.Find
     .Text = "_{1,}"
     .MatchWildcards = True
     .Replacement.Text = "16"
     If .Execute(Replace:=wdReplaceOne) Then
        While rTmp.Characters.Last.Next.Next <> chr(13)
           rTmp.Characters.Last.Next.Next = ""
        Wend
     End If
  End With
End If
If bB Then
  With rTmp.Find
     .Text = "incoming"
     .MatchWildcards = False
     If .Execute Then
        rTmp.Start = Selection.Paragraphs(1).Range.Start
        rTmp.End = rTmp.End - 8
        rTmp.Select ' for testing
        rTmp = ""
     End If
  End With
End If
End Sub

I'm not using "delete" as this may trigger autocorrect activities.
BTW, a single condition would probably be all you need.