Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim arrParts() As String
Dim oRng As Word.Range
  arrParts = Split(ActiveDocument.Range.Text, "State of Florida")
  If UBound(arrParts) > 0 Then
    Set oRng = ActiveDocument.Range
    With oRng.Find
      .Text = "STATE TAX"
      .Replacement.Text = "0.00"
      .Execute Replace:=wdReplaceAll
    End With
  End If
lbl_Exit:
  Exit Sub
End Sub