Sub Macro1()
'Graham Mayor - http://www.gmayor.com - Last updated - 13 Jul 2017
Dim oPara As Paragraph
Dim oRng As Range
Dim i As Integer
    For Each oPara In ActiveDocument.Paragraphs
        Set oRng = oPara.Range.Words(1)
        If LCase(Trim(oRng.Text)) = "transcript" Then
            oRng.Text = "Keep "
        Else
            oPara.Range.Delete
        End If
    Next oPara
End Sub