Private Function RetrieveFrameSelectedTextEasy(wb As WebBrowser) As String    Dim oDoc As HTMLDocument, tr As IHTMLTxtRange    Set oDoc = wb.Document    If LCase$(oDoc.selection.Type) = "text" Then        Set tr = oDoc.selection.createRange        RetrieveFrameSelectedText = tr.Text        Set tr = Nothing    End If    Set oDoc = NothingEnd Function

Private Function RetrieveFrameSelectedText(wb As WebBrowser) As String    Dim pContainer As olelib.IOleContainer    Dim pEnumerator As olelib.IEnumUnknown    Dim pUnk As olelib.IUnknown    Dim pBrowser As shdocvw.IWebBrowser2    '======================================    Dim oDoc As HTMLDocument    Dim tr As IHTMLTxtRange    RetrieveFrameSelectedText = vbNullString    Set pContainer = wb.Document    ' Get an enumerator for the frames    If pContainer.EnumObjects(OLECONTF_EMBEDDINGS, pEnumerator) = 0 Then        Set pContainer = Nothing        ' Enumerate all the frames        Do While pEnumerator.Next(1, pUnk) = 0            On Error Resume Next   'JPC - Edanmo's error handler            ' Clear errors            Err.Clear            ' Get the IWebBrowser2 interface            Set pBrowser = pUnk            If Err.Number = 0 Then                On Error GoTo 0                'Debug.Print "Private Sub EnumFrames Frame URL: " & pBrowser.LocationURL                Set oDoc = pBrowser.Document                If LCase$(oDoc.selection.Type) = "text" Then                    Set tr = oDoc.selection.createRange                    RetrieveFrameSelectedText = tr.Text                    Set tr = Nothing                    'Don't look for anymore selected text                    Exit Do                End If            End If        Loop        Set oDoc = Nothing        Set pEnumerator = Nothing    End IfEnd Function


It requires a reference to Edanmo's type library "OLELIB.TLB - OLE interfaces & functions v1.7" at the top of the page at

http://www.mvps.org/emorcillo/en/code/vb6/index.shtml

Hope this helps.

Sincerely,


John Coffey