Private Sub Document_Open()
With ActiveDocument
  If .SaveFormat = wdFormatRTF Then
    If InStr(.Name, "Contract", vbTextCompare) > 0 Then
      Call FoodAndBeverageMacro(ActiveDocument)
    End If
  End If
End With
End Sub
 
Sub FoodAndBeverageMacro(Doc As Document)
Dim Rslt
Rslt = MsgBox("Do you wish to remove gratuity detail from F&B clause" & vbCr & _
  "(Canadian Properties only)?", vbYesNo, "Canadian F&B Clause Change")
If Rslt = vbYes Then
With Doc.Content.Find
'Find/Replace code goes here
End With
End If
End Sub