Option Explicit
Public Sub Fuellwoerter2()
Static slngFuellChk As Long
Dim objWort As Range
Dim enmFontColor As WdColor
Dim lngCheck As Long
slngFuellChk = slngFuellChk + 1
If slngFuellChk Mod 2 = 1 Then
enmFontColor = wdColorAutomatic
Else
enmFontColor = wdColorWhite
End If
For Each objWort In ActiveDocument.Words
Select Case LCase$(Trim$(objWort.Text))
Case "aber"
lngCheck = 1
Case "abermals"
lngCheck = 1
Case Else
lngCheck = 0
End Select
If lngCheck = 1 Then objWort.Font.Color = enmFontColor
Next
End Sub