Question

VB 用户定义类型未定义

Private Sub Command1_Click()
Dim wdApp As New Word.Application '在这里提示用户定义类型未定义
Dim wdDoc As Word.Document
Dim strFileName As String
wdApp.Visible = False
strFileName = File1.Path + "\" + File1.FileName
Set wdDoc = wdApp.Documents.Open(strFileName)
wdDoc.SaveAs "c:\临时文件.RTF", 6
wdDoc.Close
wdApp.Quit
RichTextBox1.FileName = "c:\临时文件.RTF"
Kill "c:\临时文件.RTF"
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = drivel.Drive '错误424 要求对象
End Sub
麻烦哪位高手能帮我解决一下啊？？代码和书上的一样，可是就是运行不起来。跪求~~~

Answer 1

应该drive1.Drive，你写成drivel.Drive（是1不是I），太粗心了
你还需要在工程中引用Microsoft Word 11.0 Object Library
这里不一定是11，也可能是12或13（这要看你WORD的版本）

Answer 2

先引用 MS Word 10.0 obj 菜单:工程——》引用

Answer 3

dong_y888 瑞安阿芳 说的对。

Answer 4

没有引用 Microsoft Word X.0 Object Library