Public Class SpellCheck
 
    Dim WordApp As New Word.Application() 'Hier wird anscheinend das erste 
    ' Dokument geöffnet
 
Private Sub SpellCheck_Load(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles Me.Load
        WordApp = CreateObject("Word.Application") 'Und hier, soweit ich sehen 
        ' kann das zweite.
 
 
        Dim DRange As Word.Range
 
        WordApp.Documents.Add()
 
        DRange = WordApp.ActiveDocument.Range
 
        DRange.InsertAfter(My.Forms.Menue.TBAusgabe.Text)
 
        Dim SpellCollection As Word.ProofreadingErrors
 
        SpellCollection = DRange.SpellingErrors
 
        If SpellCollection.Count > 0 Then
 
            ListBox1.Items.Clear()
 
            ListBox2.Items.Clear()
 
            Dim iword As Integer
 
            Dim newWord As String
 
            For iword = 1 To SpellCollection.Count
 
                newWord = SpellCollection.Item(iword).Text
 
                If ListBox1.FindStringExact(newWord) < 0 Then
 
                    ListBox1.Items.Add(newWord)
 
                End If
 
            Next
 
        End If
 
    End Sub
 
'Mit dem Abbrechen-Button schließe ich das zweite geöffnete Dokument
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
        Try
            If WordApp IsNot Nothing Then
                WordApp.Documents.Close(0)
                WordApp.Quit()
                WordApp = Nothing
            End If
        Catch
        End Try
 
        Me.Close()
    End Sub
 
 
End Class