Application.ScreenUpdating = False

 
Dim StartTime As Double
Dim SecondsElapsed As Double
  StartTime = Timer
 
    Application.ScreenUpdating = False
 
    Dim oPara As Paragraph
    For Each oPara In ActiveDocument.Paragraphs
        If InStr(1, oPara.Range.Text, "!Z! !") = 0 Then
            oPara.Range.Delete
        End If
    Next
 
    With ActiveDocument.Range.Find
        .Replacement.ClearFormatting
        .Text = "!"
        .Replacement.Text = "|"
        .MatchWildcards = False
        .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
    End With
 
    Application.ScreenUpdating = True
 
  SecondsElapsed = Round(Timer - StartTime, 2)
  MsgBox "This code ran successfully in " & SecondsElapsed & " seconds", vbInformation