怎样用vb编个可以直接看word文档的东东

Question

引用microsoft word 9.0 object library
在窗体中加一个webbrowser1控件Private Sub Form_Load()Dim wordDoc As New Word.Document
Dim wordApp As New Word.Application
Me.WebBrowser1.Navigate App.Path & "\1.doc"
DoEvents
Set wordDoc = WebBrowser1.DocumentSet wordApp = Me.WebBrowser1.Document.Application
wordDoc.CommandBars(1).Visible = True
wordDoc.CommandBars(2).Visible = True
'wordDoc.CommandBars(3).Visible = TrueEnd Sub
Private Sub Form_Resize()
With WebBrowser1
.Left = 1
.Top = 1
.Width = Me.Width - 300
.Height = Me.Height - 600
End WithEnd Sub

Answer 1

这么复杂？？？
用API，ShellExecute me.hwnd,"Open",文档路径和名称,vbnullstring,vbnullstring,1
就可以直接看了，还支持直接打印。

Answer 2

引用microsoft word 9.0 object library
使用Word.Appliction对象