Hallo,

im Netz habe ich dieses wunderbare Makro gefunden, dass Füllwörter im gesamten Dokument hervorhebt. Ich würde mich über Tips freuen, wie man das Makro umschreiben muss, damit es nur auf einen zuvor markierten Bereich die Füllwörter markiert.

Viele Grüße
madeio

Public intFuellChk As Integer

Sub Fuellwoerter()
Dim strFarbe As Integer
intFuellChk = intFuellChk + 1
If intFuellChk Mod 2 = 1 Then strFarbe = 7 Else strFarbe = 0
intcheck = 0


For Each objWort In ActiveDocument.Words

Select Case LCase(Trim(objWort))

Case "abermals"
 intcheck = 1
Case "allem anschein nach"
 intcheck = 1
Case "allemal"
 intcheck = 1
Case "allenfalls"
 intcheck = 1
Case "allenthalben"
 intcheck = 1
Case "allesamt"
 intcheck = 1
Case "allzu"
 intcheck = 1
Case "an sich"
 intcheck = 1
Case "andauernd"
 intcheck = 1
Case "andernfalls"
 intcheck = 1
Case "anscheinend"
 intcheck = 1
Case "auch"
 intcheck = 1
Case "auffallend"
 intcheck = 1
Case "aufs neue"
 intcheck = 1
Case "augenscheinlich"
 intcheck = 1
Case "ausdrücklich"
 intcheck = 1
Case "ausgerechnet"
 intcheck = 1
Case "ausnahmslos"
 intcheck = 1
Case "außerdem"
 intcheck = 1
Case "äußerst"
 intcheck = 1
Case "bei weitem"
 intcheck = 1
Case "beinahe"
 intcheck = 1
Case "bekanntlich"
 intcheck = 1
Case "bereits"
 intcheck = 1
Case "bestenfalls"
 intcheck = 1
Case "bloß"
 intcheck = 1
Case "dabei"
 intcheck = 1
Case "dadurch"
 intcheck = 1
Case "dafür"
 intcheck = 1
Case "damals"
 intcheck = 1
Case "danach"
 intcheck = 1
Case "dann und wann"
 intcheck = 1
Case "demgegenüber"
 intcheck = 1
Case "demgemäß"
 intcheck = 1
Case "demnach"
 intcheck = 1
Case "denkbar"
 intcheck = 1
Case "denn"
 intcheck = 1
Case "dennoch"
 intcheck = 1
Case "des öfteren"
 intcheck = 1
Case "deshalb"
 intcheck = 1
Case "desungeachtet"
 intcheck = 1
Case "deswegen"
 intcheck = 1
Case "durchaus"
 intcheck = 1
Case "durchweg"
 intcheck = 1
Case "eben"
 intcheck = 1
Case "eigentlich"
 intcheck = 1
Case "ein bißchen"
 intcheck = 1
Case "ein wenig"
 intcheck = 1
Case "einerseits"
 intcheck = 1
Case "einfach"
 intcheck = 1
Case "einige"
 intcheck = 1
Case "einigermaßen"
 intcheck = 1
Case "einmal"
 intcheck = 1
Case "entsprechend"
 intcheck = 1
Case "ergo"
 intcheck = 1
Case "etliche"
 intcheck = 1
Case "folgendermaßen"
 intcheck = 1
Case "folglich"
 intcheck = 1
Case "förmlich"
 intcheck = 1
Case "fraglos"
 intcheck = 1
Case "freilich"
 intcheck = 1
Case "ganz gerne"
 intcheck = 1
Case "ganz und gar"
 intcheck = 1
Case "gänzlich"
 intcheck = 1
Case "gar"
 intcheck = 1
Case "gemeinhin"
 intcheck = 1
Case "geradezu"
 intcheck = 1
Case "gewiß"
 intcheck = 1
Case "gewisse"
 intcheck = 1
Case "glatt"
 intcheck = 1
Case "gleichsam"
 intcheck = 1
Case "gleichwohl"
 intcheck = 1
Case "glücklicherweise"
 intcheck = 1
Case "gottseidank"
 intcheck = 1
Case "größtenteils"
 intcheck = 1
Case "halt"
 intcheck = 1
Case "hätte"
 intcheck = 1
Case "häufig"
 intcheck = 1
Case "hie und da"
 intcheck = 1
Case "hingegen"
 intcheck = 1
Case "hinlänglich"
 intcheck = 1
Case "höchst"
 intcheck = 1
Case "im allgemeinen"
 intcheck = 1
Case "im grunde genommen"
 intcheck = 1
Case "im prinzip"
 intcheck = 1
Case "immerzu"
 intcheck = 1
Case "in der tat"
 intcheck = 1
Case "indessen"
 intcheck = 1
Case "infolgedessen"
 intcheck = 1
Case "insbesondere"
 intcheck = 1
Case "insofern"
 intcheck = 1
Case "irgend"
 intcheck = 1
Case "irgendein"
 intcheck = 1
Case "irgendjemand"
 intcheck = 1
Case "irgendwann"
 intcheck = 1
Case "irgendwie"
 intcheck = 1
Case "irgendwo"
 intcheck = 1
Case "ja"
 intcheck = 1
Case "je"
 intcheck = 1
Case "jedenfalls"
 intcheck = 1
Case "jedoch"
 intcheck = 1
Case "jemals"
 intcheck = 1
Case "keinesfalls"
 intcheck = 1
Case "keineswegs"
 intcheck = 1
Case "könnte"
 intcheck = 1
Case "längst"
 intcheck = 1
Case "lediglich"
 intcheck = 1
Case "leider"
 intcheck = 1
Case "letztendlich"
 intcheck = 1
Case "letztlich"
 intcheck = 1
Case "mal"
 intcheck = 1
Case "manchmal"
 intcheck = 1
Case "mehr oder weniger"
 intcheck = 1
Case "mehrfach"
 intcheck = 1
Case "meines erachtens"
 intcheck = 1
Case "meinetwegen"
 intcheck = 1
Case "meist"
 intcheck = 1
Case "meistens"
 intcheck = 1
Case "meistenteils"
 intcheck = 1
Case "mindestens"
 intcheck = 1
Case "mithin"
 intcheck = 1
Case "mitunter"
 intcheck = 1
Case "möchte"
 intcheck = 1
Case "möglicherweise"
 intcheck = 1
Case "möglichst"
 intcheck = 1
Case "nämlich"
 intcheck = 1
Case "naturgemäß"
 intcheck = 1
Case "neuerdings"
 intcheck = 1
Case "neuerlich"
 intcheck = 1
Case "neulich"
 intcheck = 1
Case "nichtsdestoweniger"
 intcheck = 1
Case "niemals"
 intcheck = 1
Case "nun"
 intcheck = 1
Case "offenkundig"
 intcheck = 1
Case "offensichtlich"
 intcheck = 1
Case "ohne weiteres"
 intcheck = 1
Case "ohne zweifel"
 intcheck = 1
Case "ohnedies"
 intcheck = 1
Case "partout"
 intcheck = 1
Case "persönlich"
 intcheck = 1
Case "quasi"
 intcheck = 1
Case "recht"
 intcheck = 1
Case "reichlich"
 intcheck = 1
Case "reiflich"
 intcheck = 1
Case "restlos"
 intcheck = 1
Case "richtiggehend"
 intcheck = 1
Case "riesig"
 intcheck = 1
Case "rundheraus"
 intcheck = 1
Case "rundum"
 intcheck = 1
Case "samt und sonders"
 intcheck = 1
Case "sattsam"
 intcheck = 1
Case "schlicht"
 intcheck = 1
Case "schlichtweg"
 intcheck = 1
Case "schließlich"
 intcheck = 1
Case "schlußendlich"
 intcheck = 1
Case "schwerlich"
 intcheck = 1
Case "selbstredend"
 intcheck = 1
Case "seltsamerweise"
 intcheck = 1
Case "sicher"
 intcheck = 1
Case "sicherlich"
 intcheck = 1
Case "so"
 intcheck = 1
Case "sogar"
 intcheck = 1
Case "sonst"
 intcheck = 1
Case "sowieso"
 intcheck = 1
Case "sowohl als auch"
 intcheck = 1
Case "sozusagen"
 intcheck = 1
Case "stellenweise"
 intcheck = 1
Case "stets"
 intcheck = 1
Case "trotzdem"
 intcheck = 1
Case "überaus"
 intcheck = 1
Case "überdies"
 intcheck = 1
Case "überhaupt"
 intcheck = 1
Case "üblicher weise"
 intcheck = 1
Case "übrigens"
 intcheck = 1
Case "umständehalber"
 intcheck = 1
Case "unbedingt"
 intcheck = 1
Case "unerhört"
 intcheck = 1
Case "ungemein"
 intcheck = 1
Case "ungewöhnlich"
 intcheck = 1
Case "ungleich"
 intcheck = 1
Case "unmaßgeblich"
 intcheck = 1
Case "unsagbar"
 intcheck = 1
Case "unsäglich"
 intcheck = 1
Case "unstreitig"
 intcheck = 1
Case "unzweifelhaft"
 intcheck = 1
Case "vermutlich"
 intcheck = 1
Case "voll"
 intcheck = 1
Case "voll und ganz"
 intcheck = 1
Case "vollends"
 intcheck = 1
Case "völlig"
 intcheck = 1
Case "vollkommen"
 intcheck = 1
Case "vollständig"
 intcheck = 1
Case "von neuem"
 intcheck = 1
Case "wahrscheinlich"
 intcheck = 1
Case "weidlich"
 intcheck = 1
Case "weitgehend"
 intcheck = 1
Case "wiederum"
 intcheck = 1
Case "wirklich"
 intcheck = 1
Case "wohl"
 intcheck = 1
Case "wohlgemerkt"
 intcheck = 1
Case "womöglich"
 intcheck = 1
Case "ziemlich"
 intcheck = 1
Case "zudem"
 intcheck = 1
Case "zugegeben"
 intcheck = 1
Case "zumeist"
 intcheck = 1
Case "zusehends"
 intcheck = 1
Case "zuweilen"
 intcheck = 1
Case "zweifellos"
 intcheck = 1
Case "zweifelsfrei"
 intcheck = 1
Case "zweifelsohne"
 intcheck = 1
Case Else
intcheck = 0
End Select

If intcheck = 1 Then objWort.HighlightColorIndex = strFarbe

Next
End Sub