Sub salutation()
'Graham Mayor - https://www.gmayor.com - Last updated - 19 Aug 2020
Dim oRng As Range
Dim bFound As Boolean
Const strWORDTOFIND As String = "salutation"
    Set oRng = ActiveDocument.Range
    With oRng.Find
        Do While .Execute(findText:=strWORDTOFIND, MatchCase:=False)
            With oRng
                .Text = "It is a pleasure ...."
                .Bold = False
                .Italic = False
                .Underline = wdUnderlineNone
                .Collapse 0
                .Select
            End With
            bFound = True
            Exit Do
        Loop
    End With
    If Not bFound Then
        Beep
        MsgBox strWORDTOFIND & " is not present."
    End If
    Set oRng = Nothing
End Sub