在VB6中引用Micosoft Word X.0(版本号) Object Library '定义word应用 Dim wordApp As New Word.Application Dim myDoc As Word.Document '打开一个word文档 Set myDoc = wordApp.Documents.Open("f:\test.doc") wordApp.Visible = True
第二种办法:Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Form_Load()ShellExecute Me.hWnd, "open", "C:\User.doc", vbNullString, vbNullString, SW_SHOWEnd Sub
Private Sub Form_Load()ShellExecute Me.hWnd, "open", "C:\User.doc", vbNullString, vbNullString, SW_SHOWEnd Sub
只有Micosoft Word9.0 Object Library
怎么办呢?