实现支持逻辑搜索/单词搜索/词组搜索+支持OR/A(2)

        Else
            objReg.Pattern = "\sand|\sor"
            blnRes = objReg.Test( strText )
            If blnRes Then
                strSky = check()
                If strSky = False Then
                    GetText = wahaha()
                Else
                    GetText = strSky
                End if
            Else
                GetText = wahaha()
            End if
        End If
    End Function

    Private Function wahaha()
        Dim strTer
        Dim strLikes
        Dim strOrs
        Dim strI
        Dim objRe
        strTer   = ""
        strLikes = " or (" & strField & " like '%"
        strOrs   = "%')"
        objReg.Pattern = "(\S*\S)"
        Set objRe = objReg.Execute(strText)
        For Each strI In objRe 
            strTer  = strTer & strLikes & strI & strOrs
        Next
        wahaha = Mid( strTer , 4 )
        intStart = 3
    End Function