紧要代码：
Dimdoc,objhtmlAsObject
DimiAsInteger
DimstrhtmlAsString
IfNotMe.WebBrowser1.BusyThen
Setdoc=WebBrowser1.Document
i=0
Setobjhtml=doc.body.createtextrange()
IfNotIsNull(objhtml)Then
Text1=objhtml.htmltext
EndIf
EndIf
示例下载：（在屏幕左下角的“赏玩原文”里下载）
图示:
-End-↓↓↓点击"赏玩原文"