VB:选择了文件之后“打开”就会提示用户定义类型未定义,工程引用选择的office11.0
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive '建立目录列表与驱动器列表的联动
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path '建立文件列表与目录列表间的联动
End Sub
Private Sub Command1_Click()
'定义新的word应用程序对象
Dim wdApp As New word.Application
'定义新的Word文档对象
Dim wdDoc As Word.Document
Dim strFileName As String
'使用Word应用程序窗口隐含
wdApp.Visible = False
'读取当前在File1文件列表中选中的文件全名
strFileName = File1.Path + "" + File1.FileName
'在Word中打开文件
Set wdDoc = wdApp.Documents.Open(strFileName)
'以RTF文件格式另存文件为“C:临时文件.rtf”
wdDoc.SaveAs "C:临时文件.rtf", 6
'关闭Word文档并退出Word应用程序
wdDoc.Close
wdApp.Quit
'在RichTextBox控件中显示临时文件
RichTextBox1.FileName = "C:临时文件.rtf"
'删除临时文件
Kill "C:临时文件.rtf"
End Sub
实际上就是VBA的编程,满意请采纳
这个你设置的错了