Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Vorgegebene Füllwörter markieren
zurück: Vorgefertigte Briefvorlage klappt nicht nach Änderung weiter: Bestimmte Bereiche in einem geschützten Dokument freigeben Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Rudi Dutschke
Im Profil kannst Du frei den Rang ändern


Verfasst am:
05. Sep 2006, 21:33
Rufname:

Vorgegebene Füllwörter markieren - Vorgegebene Füllwörter markieren

Nach oben
       

Erst mal ein Hallo an alle User.

Ich möchte in Word 2003 eine Schaltfläche anbieten, die nach einem Klick bestimmte Wörter auf allen Seiten farblich hervorhebt. Bei meiner Suche in diesem Forum bin ich auf eine ähnliche Lösung gestoßen:
http://www.office-loesung.de/ftopic3484_0_0_asc.php

Ich kenne mich in VBA nicht sonderlich gut aus und habe daher eine Frage: Ist es irgendwie möglich (wie in anderen Sprachen auch), die zu markierenden Wörter in einer Liste (Array) zu speichern, damit man die Prozedur nicht immer und immer wieder wiederholt und quasi nur das Wort austauscht???

Gruß
Jürgen


Zuletzt bearbeitet von Rudi Dutschke am 07. Sep 2006, 14:02, insgesamt 2-mal bearbeitet
Rudi Dutschke
Im Profil kannst Du frei den Rang ändern


Verfasst am:
06. Sep 2006, 12:55
Rufname:


AW: Vorgegebene Wörter markieren - AW: Vorgegebene Wörter markieren

Nach oben
       

Schön, das viele Sprachen ähnlich sind. Dieses Makro sucht und markiert so genannte Fülwörter im Dokument:

[Deklaration]
Code:
Public intFuellChk As Integer


[Sub]
Code:
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
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Formate: Merkwürdige dunkelblaue Hinterlegung beim Markieren von Text 2 2kr4nk4u 200 28. Dez 2013, 23:42
theoS Merkwürdige dunkelblaue Hinterlegung beim Markieren von Text
Keine neuen Beiträge Word Formate: kopfzeile markieren 1 anco9503 294 07. Aug 2013, 14:49
LuK kopfzeile markieren
Keine neuen Beiträge Word Formate: Wie Markieren für PDF 2 hestan 496 13. Jul 2012, 13:21
hestan Wie Markieren für PDF
Keine neuen Beiträge Word VBA Programmierung (Makros): Ganze Zeile markieren und löschen 12 Perci 10732 11. Jan 2012, 14:40
becks76 Ganze Zeile markieren und löschen
Keine neuen Beiträge Word VBA Programmierung (Makros): Mehrere Begriffe in Word-Dokument finden und markieren 44 Tom Doman 15630 19. Okt 2011, 07:52
Aleword Mehrere Begriffe in Word-Dokument finden und markieren
Keine neuen Beiträge Word VBA Programmierung (Makros): Platzhalter suchen und in anderen Doc markieren 0 Struwwelpeter.Makro 698 05. Feb 2011, 13:11
Struwwelpeter.Makro Platzhalter suchen und in anderen Doc markieren
Keine neuen Beiträge Word VBA Programmierung (Makros): Absatz markieren in VBA 3 Sha-ni-a 5272 16. Okt 2010, 19:06
Sha-ni-a Absatz markieren in VBA
Keine neuen Beiträge Word VBA Programmierung (Makros): Gibt es ein Makro, um unbenutzte Formatvorlagen zu MARKIEREN 2 schokoline 897 02. Jun 2010, 11:41
schokoline Gibt es ein Makro, um unbenutzte Formatvorlagen zu MARKIEREN
Keine neuen Beiträge Word VBA Programmierung (Makros): Text zwischen Bookmarks markieren 2 BuffaloBill 1001 02. Nov 2009, 16:25
MarcSLK Text zwischen Bookmarks markieren
Keine neuen Beiträge Word VBA Programmierung (Makros): W2003 stichwörter farbig markieren 8 mexicanblackbird 1115 15. Mai 2009, 15:02
mexicanblackbird W2003 stichwörter farbig markieren
Keine neuen Beiträge Word VBA Programmierung (Makros): erste bis letzte Zeile markieren 2 stefanseevetal 1310 30. März 2009, 16:06
stefanseevetal erste bis letzte Zeile markieren
Keine neuen Beiträge Word Formate: WORD reagiert nicht auf vorgegebene Formatierungen 4 Gast 802 04. Jan 2009, 13:51
Gast WORD reagiert nicht auf vorgegebene Formatierungen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS