用webbrowser浏览。 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 = TrueEnd Sub
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 = TrueEnd Sub