16,554
社区成员
发帖
与我相关
我的任务
分享
Dim wordApp As New Microsoft.Office.Interop.Word.Application
Dim wordDoc As New Microsoft.Office.Interop.Word.Document
wordDoc = wordApp.Documents.Open(My.Application.Info.DirectoryPath() & "\temp.doc"'打开文件并赋予文件实例
If Err.Number = 462 Then
wordApp = CreateObject("Word.Application") '建立WORD实例
wordDoc = wordApp.Documents.Open(My.Application.Info.DirectoryPath() & "\temp.doc"'打开文件并赋予文件实例
End If
Dim stringDoc = wordDoc.Range.Text
wordDoc.Close() '关闭文档实例
wordApp.Quit()
wordDoc = Nothing
wordApp = Nothing