Public Function SetDefaultFindReplaceBehavior(intOption As Integer) As Variant
'*****************************************************************************
' Function SetDefaultFindReplaceBehavior(intOption As Integer)    Access 97
'
' Sets the default Find/Replace behavior in the Tools, Options, Edit/Find
' dialog. intOption is zero based and corresponds to the choices available
' in the dialog.  This function returns the previous value.
'*****************************************************************************
On Error GoTo SetDefaultFindReplaceBehaviorErr         'Specify error handler
   
SetDefaultFindReplaceBehavior = _
   Application.GetOption("Default Find/Replace Behavior")

Application.SetOption "Default Find/Replace Behavior", intOption

SetDefaultFindReplaceBehaviorExit:
   Exit Function

SetDefaultFindReplaceBehaviorErr:
   MsgBox ("Error number " & Err.Number & ": " & Err.Description)
   Resume SetDefaultFindReplaceBehaviorExit

End Function

