Function obf_DeleteWarningShape(ByVal obf_textBoxName As String, ByVal obf_saveDocAfter As Boolean) As Boolean
    On Error GoTo obf_ProcError
    Dim obf_shape As Word.shape
    Dim obf_removed
    Dim obf_names
    obf_removed = False
    On Error Resume Next

    obf_names = Split(obf_textBoxName, ",")
    For obf_idx = LBound(obf_names) To UBound(obf_names)
        For Each obf_shape In ActiveDocument.Shapes
            If StrComp(obf_shape.Name, obf_names(obf_idx)) = 0 Then
                obf_shape.Delete
                obf_removed = True
                Exit For
            End If
        Next
    Next

    If obf_saveDocAfter Then
        ActiveDocument.Save
    End If
    obf_DeleteWarningShape = obf_removed
obf_ProcError:
End Function