Dim x As New Word.Application
 
 
        x.Documents.Add()
        x.Selection.WholeStory()
        x.Selection.Delete()
        x.Selection.TypeText(wort)
 
        Me.lvFalse.Items.Add(wort)
 
        x.Selection.TypeText(wort)
 
'Hier kommt Fehlermeldung, daß Wörterbuch nicht geöffnet werden kann
me.lvRight.Items.Add(x.ActiveDocument.Words(1).GetSpellingSuggestions( _
  wort).Item(0).Name)

'Diese Zeile funktioniert und liefert ein Ergebnis.
If wd.ActiveDocument.Words(1).GetSpellingSuggestions.Count > 0 Then