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Ÿ", "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ÿ")
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