System.Runtime.InteropServices.COMException, когда я запускаю этот код Interop со словом

Question

Когда я запускаю этот код, чтобы взять текст от документа слово он заканчивается с несколькими System.Runtime.InteropServices.COMException «s

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click 
    If Origcv = "" Then 
     Label10.Text = "Select a CV" 
    Else 
     ' Create application instance. 
     Dim app As Application = New Application 

     ' Open specified file. 
     Dim doc As Document = app.Documents.Open(Origcv) 

     ' Loop through all words. 
     Dim count As Integer = doc.Words.Count 
     Dim cvw(count) As String 
     For i As Integer = 1 To count 
      ' Write word to screen. 
      Dim text As String = doc.Words(i).Text 

      cvw(i) = doc.Words(i).Text 
     Next 
     ' Quit the application. 
     app.Quit() 

Ошибки все приходят на doc.words (I) .text, даже если .count преуспел. Я установил все компоненты слова и .net и до сих пор не могу заставить это работать. Раньше я работал нормально, когда раньше использовал тот же код на моем ноутбуке до того, как он был перезагружен, поэтому я предполагаю, что у меня отсутствует какой-либо компонент или параметр, ссылка interop.word распознается и имеет путь к файлам по ссылкам вкладка. Любая помощь здесь должна быть быстро завершена, и это буквально первый барьер.

Любая помощь оценили

Answer 1

Я считаю, что ваша проблема Dim app As Application = New Application Этот вид конструкции всегда опасно. Во многих пространствах имен используется Application - у вас нет спецификатора, который сообщает .NET, какое приложение предназначено. Тот факт, что Documents.Open работает, также может быть вызван тем, что пространство имен .NET также имеет класс Documents.

Если вы полностью квалифицировать:

Dim app As Microsoft.Office.Interop.Word.Application = New Microsoft.Office.Interop.Word.Application() 

Я считаю, что проблема исчезнет.

Если это делает, положить Imports в верхней части модуля, который присваивает псевдоним для пространства имен затем использовать псевдоним, чтобы квалифицировать объекты в пространстве имен Word (делает вещи более короткие):

Imports Word = Microsoft.Office.Interop.Word 

Тогда

Dim app as Word.Application = New Word.Application() 
Dim doc as Word.Document = app.Documents.Open(Origcv)