Thema Datum  Von Nutzer Rating
Antwort
Rot Makro nur auf ausgewählten Bereich anwenden
05.12.2017 11:41:30 madeio
NotSolved
05.12.2017 12:09:57 Gast25385
Solved
05.12.2017 12:40:31 madeio
NotSolved

Ansicht des Beitrags:
Von:
madeio
Datum:
05.12.2017 11:41:30
Views:
301
Rating: Antwort:
  Ja
Thema:
Makro nur auf ausgewählten Bereich anwenden

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro nur auf ausgewählten Bereich anwenden
05.12.2017 11:41:30 madeio
NotSolved
05.12.2017 12:09:57 Gast25385
Solved
05.12.2017 12:40:31 madeio
NotSolved