各位网友请进！！！！

Question

Private Sub Command1_Click()Dim Range
   'check to see if the document has a BODY
   If WebBrowser1.Document.body.tagName = "BODY" Then
        Set Range = WebBrowser1.Document.body.createTextRange
        Range.findText "Great"
        Range.Select
        Range.execCommand "Copy"
        Text1.Text = Clipboard.GetText
  End IfEnd SubPrivate Sub Form_Load()
On Error Resume Next        'Don't stop execution, continue on next line
    WebBrowser1.Navigate "http://www.csdn.net"
    If Err.Number <> 0 Then MsgBox "Error :" & Err.Description  'Display error message
End Sub

Answer 1

忘了把 Range.findText "Great" 行给去了这是查找 字符串选中！