楼主有些夸大难度了， 用IHTMLStyle接口就能实现Option Explicit' 工程中引用 MSHTML 组件 ' 窗体创建一个 WebBrowser控件 Private WithEvents DOM As HTMLDocumentPrivate Sub Command1_Click() Dim obj As IHTMLElement Dim objStyle As IHTMLStyle
If Not DOM Is Nothing Then For Each obj In DOM.All Set objStyle = obj.Style If Not objStyle Is Nothing Then objStyle.fontFamily = "隶书" objStyle.FontSize = 200 End If Next End IfEnd SubPrivate Sub Form_Load() WebBrowser1.Navigate2 "http://www.csdn.net" End SubPrivate Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant) On Error Resume Next Set DOM = pDisp.Document If Err.Number <> 0 Then Debug.Print Err.Description End Sub
' 窗体创建一个 WebBrowser控件
Private WithEvents DOM As HTMLDocumentPrivate Sub Command1_Click()
Dim obj As IHTMLElement
Dim objStyle As IHTMLStyle
If Not DOM Is Nothing Then
For Each obj In DOM.All
Set objStyle = obj.Style
If Not objStyle Is Nothing Then
objStyle.fontFamily = "隶书"
objStyle.FontSize = 200
End If
Next
End IfEnd SubPrivate Sub Form_Load()
WebBrowser1.Navigate2 "http://www.csdn.net"
End SubPrivate Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Set DOM = pDisp.Document
If Err.Number <> 0 Then Debug.Print Err.Description
End Sub
控制wb用VB属性当然不够了，
引入wb Com接口后你想干啥都行。
去看看大牛的文章，收获会不小的
http://blog.csdn.net/shanhe/category/15859.aspx
1、年龄：25-35岁；
2、学历及专业：必须为正规全国统招全日制本科以上学历，计算机或相关专业，两年以上软件开发工作经验；
3、熟练使用VB开发语言，并能够熟练使用这种语言进行GUI/WinForm界面功能的开发；
4、精通SQL Server、ORACLE数据库应用程序的开发；精通数据库存储过程的开发；对数据库应用性能优化有丰富经验；
5、熟悉面向对象的分析设计技术和工具，包括UML建模、Rose应用；
6、了解CMMI软件过程方法。
7、有积极的工作态度，勤奋踏实，沟通和学习能力较好，能积极面对工作压力，善于和各种背景的人合作；
8、有企业管理软件开发经验者优先，有行业背景（如：制造业、财政、房地产等，）或业务知识（如：财务、HR、供应链等）尤佳。
楼主的这个也太想当然了哈
Web1.Document.Write("<body><font FACE=" & Chr(32) & "宋体" & Chr(32) & "><FONT SIZE=+2>Hello world!</FONT></body>")楼主别想当然，修改Webbrowser.Document吧。