Hallo,

argh, Du wirfst zu schnell die Flinte ins Korn, im Bsp. ne 510-er Liste mit versch. Buchstabenzusätzen, Dich hauen wahrscheinlich die Semikolons raus, mußt Du beim Reinkopieren drauf achten, oder Du erstellst Custom-Listen über Excel und fragst die im Code ab:

Option Explicit
  
Public Sub Fuellwoerter()
Dim objWort As Range
Dim avntArray() As Variant
Dim enmFontColor As WdColor
Dim ialngIndex As Long
avntArray = Array("aber ", "aber ", "aber ", "aber ", "aber ", "aber ", "aber", "aber ", "aber   ", "aber", "aber", "aber", "aber", "aber", _
"aber ", "aber ", "aber ", "aber ", "aber ", "aber ", "aber ", "aber ", "aber ", "aber ", "aber ", "aber ", "aber ", "aber ", "aber ", "aber ", "aber", "aber ", "aber!", "aber", "aber#", "aber$", "aber%", "aber&", "aber'", "aber(", "aber)", "aber*", "aber+", "aber,", "aber-", "aber.", "aber/", "aber0", "aber1", "aber2", "aber3", "aber4", "aber5", "aber6", "aber7", "aber8", "aber9", "aber:", "aber;", "aber<", "aber=", "aber>", "aber?", "aber@", "aberA", "aberB", "aberC", "aberD", "aberE", "aberF", "aberG", "aberH", "aberI", "aberJ", "aberK", "aberL", "aberM", "aberN", "aberO", "aberP", "aberQ", "aberR", "aberS", "aberT", "aberU", "aberV", "aberW", "aberX", "aberY", "aberZ", "aber[", "aber\", "aber]", "aber^", "aber_", "aber`", "abera", "aberb", "aberc", "aberd", "abere", "aberf", "aberg", "aberh", "aberi", "aberj", "aberk", "aberl", "aberm", "abern", "abero", "aberp", "aberq", "aberr", "abers", "abert", "aberu", "aberv", "aberw", "aberx", "abery", "aberz", "aber{", "aber|", "aber}", "aber~", _
"aber", "aber€", "aber", "aber‚", "aberƒ", "aber", "aber…", "aber†", "aber‡", "aberˆ", "aber‰", "aberŠ", "aber‹", "aberŒ", "aber", "aberŽ", "aber", "aber", "aber'", "aber'", "aber", "aber", "abero", "aber-", "aber-", "aber˜", "aber™", "aberš", "aber›", "aberœ", "aber", "aberž", "aberŸ", "aber ", "aber¡", "aber¢", "aber£", "aber¤", "aber¥", "aber¦", "aber§", "aber¨", "aber©", "aberª", "aber", "aber", "aber­", "aber®", "aber¯", "aber°", "aber±", "aber²", "aber³", "aber´", "aberµ", "aber", "aber·", "aber¸", "aber¹", "aberº", "aber", "aber¼", "aber½", "aber¾", "aber¿", "aberÀ", "aberÁ", "aberÂ", "aberÃ", "aberÄ", "aberÅ", "aberÆ", "aberÇ", "aberÈ", "aberÉ", "aberÊ", "aberË", "aberÌ", "aberÍ", "aberÎ", "aberÏ", "aberÐ", "aberÑ", "aberÒ", "aberÓ", "aberÔ", "aberÕ", "aberÖ", "aber×", "aberØ", "aberÙ", "aberÚ", "aberÛ", "aberÜ", "aberÝ", "aberÞ", "aberß", "aberà", "aberá", "aberâ", "aberã", "aberä", "aberå", "aberæ", "aberç", "aberè", "aberé", "aberê", "aberë", "aberì", "aberí", "aberî", "aberï", "aberð", _
"aberñ", "aberò", "aberó", "aberô", "aberõ", "aberö", "aber÷", "aberø", "aberù", "aberú", "aberû", "aberü", "aberý", "aberþ", "aberÿ", _
"abermals ", "abermals ", "abermals ", "abermals ", "abermals ", "abermals ", "abermals", "abermals ", "abermals   ", "abermals", "abermals", "abermals", "abermals", "abermals", _
"abermals ", "abermals ", "abermals ", "abermals ", "abermals ", "abermals ", "abermals ", "abermals ", "abermals ", "abermals ", "abermals ", "abermals ", "abermals ", "abermals ", "abermals ", "abermals ", "abermals", "abermals ", "abermals!", "abermals", "abermals#", "abermals$", "abermals%", "abermals&", "abermals'", "abermals(", "abermals)", "abermals*", "abermals+", "abermals,", "abermals-", "abermals.", "abermals/", "abermals0", "abermals1", "abermals2", "abermals3", "abermals4", "abermals5", "abermals6", "abermals7", "abermals8", "abermals9", "abermals:", "abermals;", "abermals<", "abermals=", "abermals>", "abermals?", "abermals@", "abermalsA", "abermalsB", "abermalsC", "abermalsD", "abermalsE", "abermalsF", "abermalsG", "abermalsH", "abermalsI", "abermalsJ", "abermalsK", "abermalsL", "abermalsM", "abermalsN", "abermalsO", "abermalsP", "abermalsQ", "abermalsR", "abermalsS", "abermalsT", "abermalsU", "abermalsV", "abermalsW", "abermalsX", "abermalsY", "abermalsZ", "abermals[", _
"abermals", "abermals\", "abermals]", "abermals^", "abermals_", "abermals`", "abermalsa", "abermalsb", "abermalsc", "abermalsd", "abermalse", "abermalsf", "abermalsg", "abermalsh", "abermalsi", "abermalsj", "abermalsk", "abermalsl", "abermalsm", "abermalsn", "abermalso", "abermalsp", "abermalsq", "abermalsr", "abermalss", "abermalst", "abermalsu", "abermalsv", "abermalsw", "abermalsx", "abermalsy", "abermalsz", "abermals{", "abermals|", "abermals}", "abermals~", "abermals", "abermals€", "abermals", "abermals‚", "abermalsƒ", "abermals", "abermals…", "abermals†", "abermals‡", "abermalsˆ", "abermals‰", "abermalsŠ", "abermals‹", "abermalsŒ", "abermals", "abermalsŽ", "abermals", "abermals", "abermals'", "abermals'", "abermals", "abermals", "abermalso", "abermals-", "abermals-", "abermals˜", "abermals™", "abermalsš", "abermals›", "abermalsœ", _
"abermals", "abermalsž", "abermalsŸ", "abermals ", "abermals¡", "abermals¢", "abermals£", "abermals¤", "abermals¥", "abermals¦", "abermals§", "abermals¨", "abermals©", "abermalsª", "abermals", "abermals", "abermals­", "abermals®", "abermals¯", "abermals°", "abermals±", _
"abermals²", "abermals³", "abermals´", "abermalsµ", "abermals", "abermals·", "abermals¸", "abermals¹", "abermalsº", "abermals", "abermals¼", "abermals½", "abermals¾", "abermals¿", "abermalsÀ", "abermalsÁ", "abermalsÂ", "abermalsÃ", "abermalsÄ", "abermalsÅ", "abermalsÆ", "abermalsÇ", "abermalsÈ", "abermalsÉ", "abermalsÊ", "abermalsË", "abermalsÌ", "abermalsÍ", "abermalsÎ", "abermalsÏ", "abermalsÐ", "abermalsÑ", "abermalsÒ", "abermalsÓ", "abermalsÔ", "abermalsÕ", "abermalsÖ", "abermals×", "abermalsØ", "abermalsÙ", "abermalsÚ", "abermalsÛ", "abermalsÜ", "abermalsÝ", "abermalsÞ", "abermalsß", "abermalsà", "abermalsá", "abermalsâ", "abermalsã", "abermalsä", "abermalså", "abermalsæ", "abermalsç", "abermalsè", "abermalsé", "abermalsê", "abermalsë", "abermalsì", "abermalsí", "abermalsî", "abermalsï", "abermalsð", "abermalsñ", "abermalsò", "abermalsó", "abermalsô", "abermalsõ", "abermalsö", "abermals÷", "abermalsø", "abermalsù", "abermalsú", "abermalsû", "abermalsü", "abermalsý", "abermalsþ", "abermalsÿ")
 '// hier Deine Wörterliste reinkopieren im Bsp. Anzahl 510...
For Each objWort In ActiveDocument.Words
    For ialngIndex = 0 To UBound(avntArray)
        With objWort
            If avntArray(ialngIndex) = LCase$(Trim$(.Text)) Then
                If .Font.Color = wdColorWhite Then
                   enmFontColor = wdColorAutomatic
                Else
                   enmFontColor = wdColorWhite
                End If
                Exit For
            End If
        End With
    Next
    If ialngIndex <= UBound(avntArray) Then Exit For
Next
For Each objWort In ActiveDocument.Words
    For ialngIndex = 0 To UBound(avntArray)
        With objWort
            If avntArray(ialngIndex) = LCase$(Trim$(.Text)) Then
               .Font.Color = enmFontColor
               Exit For
            End If
        End With
    Next
Next
End Sub

Gruß,