Hammer!! Nochmal tausend Dank! Vor allem für deine Erläuterungen, die machen das echt nachvollziehbar. Mehr als mal was zusammenkopieren und minimal anpassen habe ich leider noch nie gemacht, deswegen hab ich auch keine Ahnung von der Syntax, ich muss das echt nochmal lernen.
Das die Liste bei Wörtern wie "Schloss" dann sehr lang ist, ist dann eben so.
Nur aus Interesse für das Verständnis, falls man sich nur Nomen ausgeben lassen möchte, müsste man wahrscheinlich diesen Teil
For Each vntMeaning In objSynInfo.MeaningList
in soetwas in der Art wie
If objSynInfo.MeaningCount <> 0 Then
If i > iMax Then iMax = i
For i = 1 To UBound(objSynInfo.PartOfSpeechList)
Select Case objSynInfo.PartOfSpeechList(i)
Case wdNoun
ändern, oder?
Auf jedenfall vielen Dank Gast85475 du hast mir sehr weitergeholfen.
LG
|