它可以过虑Js 可以过滤 CSS 过滤HTML标识，只采集页面的可见文本。

我写的是这样: Function ClearHTMLCode(originCode) Dim reg set reg = new RegExp reg.IgnoreCase = True reg.Global = True reg.Pattern = “()” originCode= reg.Replace(originCode, “”) reg.Pattern = “()” originCode= reg.Replace(originCode, “”) reg.Pattern = “]*>