Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Ganze Zeile hervorheben wenn ein bestimmtes Wort drin steht
zurück: Probleme mit SendKeys weiter: db5headings ersetzen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Holger.D
Neuling


Verfasst am:
17. Jun 2010, 12:55
Rufname:

Ganze Zeile hervorheben wenn ein bestimmtes Wort drin steht - Ganze Zeile hervorheben wenn ein bestimmtes Wort drin steht

Nach oben
       Version: Office 2007

Hallo, ich suche eine Lösung in VBA für Word die mir eine ganze Zeile oder einen ganzen Absatz hervorhebt wenn ein bestimmtes Wort z.B. "TOP" drin vorkommt. Hab zwar so etwas hinbekommen, das läuft aber superlangsam. Vielleicht kennt jemand eine bessere Technik. ich habe es auch mit einem "Mustervergleich": ^m*TOP*^m versucht. Das klappt aber überhaupt nicht. Wäre dankbar für jede Hilfe.

Code:

Dim rng As Range
Dim iPage
For iPage = 1 To 9999999
  Set rng = ActiveDocument.GoTo(what:=wdGoToLine, which:=wdGoToAbsolute, Count:=iPage)
  rng.Select
  rng.Bookmarks("\line").Select
  Debug.Print Selection.Text
  If InStr(1, Selection.Text, "TOP") > 0 Then
    Selection.Range.HighlightColorIndex = wdYellow
  End If
 
Next iPage
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
17. Jun 2010, 13:32
Rufname:
Wohnort: Leipzig


AW: Ganze Zeile hervorheben wenn ein bestimmtes Wort drin st - AW: Ganze Zeile hervorheben wenn ein bestimmtes Wort drin st

Nach oben
       Version: Office 2007

Hallo Holger,

ja, Deine Schleife hat schon noch Geschwindigkeitspotential, probier mal so:
Code:
Sub Test()

    Dim para As Word.Paragraph
   
    For Each para In ActiveDocument.Paragraphs
        If InStr(1, para.Range.Text, "TOP", vbBinaryCompare) > 0 Then
            para.Range.HighlightColorIndex = wdYellow
        End If
    Next para

End Sub

Das dauert zwar auch eine gewisse Zeit, sollte aber schneller durchlaufen als Deine Schleife.

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Holger.D
Neuling


Verfasst am:
20. Jun 2010, 11:08
Rufname:

AW: Ganze Zeile hervorheben wenn ein bestimmtes Wort drin st - AW: Ganze Zeile hervorheben wenn ein bestimmtes Wort drin st

Nach oben
       Version: Office 2007

Hallo Lisa, das war super und es ist superschnell ... vielen Dank für die Hilfe
lafringuella
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Nov 2010, 14:50
Rufname:

AW: Ganze Zeile hervorheben wenn ein bestimmtes Wort drin st - AW: Ganze Zeile hervorheben wenn ein bestimmtes Wort drin st

Nach oben
       Version: Office 2007

Gibts das auch für Word 2003? Ich habs probiert, indem ich das Wort TOP durch mein Suchwort "Answer" ersetzt habe, aber es tut sich nix.
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
25. Nov 2010, 14:58
Rufname:
Wohnort: Leipzig


AW: Ganze Zeile hervorheben wenn ein bestimmtes Wort drin st - AW: Ganze Zeile hervorheben wenn ein bestimmtes Wort drin st

Nach oben
       Version: Office 2007

Hallo lafringuella,

klar funktioniert das auch unter Word 2003 (sogar unter Word 97 getestet). Der zu suchende Text muss in genau dieser Schreibweise vorkommen und in Anführungsstrichen stehen.

Ansonsten beschreib mal, wo der Text steht, der da nicht gefunden wird?

Gruß
Lisa
lafringuella
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Nov 2010, 15:09
Rufname:

AW: Ganze Zeile hervorheben wenn ein bestimmtes Wort drin st - AW: Ganze Zeile hervorheben wenn ein bestimmtes Wort drin st

Nach oben
       Version: Office 2007

Ha! Es lag an der Groß/Kleinschreibung! Es funktioniert für eine Zeile, aber wie funktioniert das, wenn ich alle Zeilen, in denen das Wort ANSWER vorkommt, hervorgehoben haben will? Und wie mache ich das, wenn alle Zeilen markiert sind und das Makro aufhören soll?
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
25. Nov 2010, 16:25
Rufname:
Wohnort: Leipzig

AW: Ganze Zeile hervorheben wenn ein bestimmtes Wort drin st - AW: Ganze Zeile hervorheben wenn ein bestimmtes Wort drin st

Nach oben
       Version: Office 2007

Hallo lafringuella,

das Makro prüft ALLE Absätze eines Dokuments und markiert alle diejenigen, die das betreffende Wort enthalten, gelb. Es hört von allein auf, wenn es das Dokument durchforstet hat.

Wie bist Du vorgegangen, dass es nur für EINE Zeile funktioniert? Zeig mal den von Dir verwendeten Code! An sich sorgt die obige Schleife dafür, dass alle Absätze behandelt werden.

Gruß
Lisa
sternkrabbe
aufgestiegen in: Zweite Liga


Verfasst am:
25. Nov 2010, 18:52
Rufname:

AW: Ganze Zeile hervorheben wenn ein bestimmtes Wort drin st - AW: Ganze Zeile hervorheben wenn ein bestimmtes Wort drin st

Nach oben
       Version: Office 2007

Warum geht es nicht mit Find - oder habe ich was verpasst?
_________________
"Kleine Fehler im Code erhöhen den Lerneffekt."
aktuell am Start: Office 2004(Mac), 2007, 2008, 2011
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
26. Nov 2010, 00:55
Rufname:
Wohnort: Leipzig

AW: Ganze Zeile hervorheben wenn ein bestimmtes Wort drin st - AW: Ganze Zeile hervorheben wenn ein bestimmtes Wort drin st

Nach oben
       Version: Office 2007

Hallo Sternkrabbe,

klar geht es auch mit Find, macht nur mehr Arbeit. Einmal muss man mit Range-Objekt suchen, damit man die Suche unterbrechen kann, um nicht nur den Fund hervorzuheben, sondern den ganzen umgebenden Absatz.
Dann noch die ganzen StoryRanges abarbeiten, die gelegentlichen "Zicken" des Find-Objekts abfangen usw.

So eine ganz profane Schleife über alle Absätze funktioniert immer, ist zwar langsamer als Find, aber einfacher zu programmieren. Kommt halt drauf an, wie lang das Dokument ist.

Gruß
Lisa
lafringuella
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Nov 2010, 14:08
Rufname:

AW: Ganze Zeile hervorheben wenn ein bestimmtes Wort drin st - AW: Ganze Zeile hervorheben wenn ein bestimmtes Wort drin st

Nach oben
       Version: Office 2007

Hallo! Sorry für die späte Rückmeldung - keine Ahnung, was letzte Woche war, heute läuft es wieder. Danke!
Molo
Gast


Verfasst am:
19. Jul 2012, 03:25
Rufname:


AW: Ganze Zeile hervorheben wenn ein bestimmtes Wort drin st - AW: Ganze Zeile hervorheben wenn ein bestimmtes Wort drin st

Nach oben
       Version: Office 2003

Hallo,

ich habe dieses macro genutzt und bin ganz begeistert. Die Krönung meiner Entdeckung des Macrolands wäre für mich das Folgende:

Ich bräuchte das obige Macro in der Form, dass es nicht nur die Zeile makiert, die das Wort enthält sondern jeweils auch noch eine Zeile drüber und drunter.

Wenn ich mich nicht irre, was jedoch sehr gut sein kann, dann funktioniert das über das hinzufügen von Variablen zum Range. Wenn das super einfach ist und keinem Lebenszeit raubt wäre es wirklich großartig und würde mir ne Menge Lebenszeit retten, wenn jemand mir sagen könnte, was ich da reinschreiben soll.

Dank im Vorraus,

Martin
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 Serienbriefe: Serienbrief aus Excel mit Link von einzelner Zeile möglich? 0 Cantello 180 10. Jun 2013, 18:02
Cantello Serienbrief aus Excel mit Link von einzelner Zeile möglich?
Keine neuen Beiträge Word Serienbriefe: Ganze leere Zeile im Adressetikett unterdrücken 1 samtpfote67 400 21. Feb 2013, 15:51
Ute-S Ganze leere Zeile im Adressetikett unterdrücken
Keine neuen Beiträge Word Serienbriefe: Serienbrief: 1. spalte, nicht 1. zeile, als inhaltsangabe 0 Gast 394 16. Jun 2012, 18:48
Gast Serienbrief: 1. spalte, nicht 1. zeile, als inhaltsangabe
Keine neuen Beiträge Word Serienbriefe: Worddokument: wo steht welche ODBC Abfrage gewählt wird? 1 Gast 702 21. Nov 2011, 10:37
Gast Worddokument: wo steht welche ODBC Abfrage gewählt wird?
Keine neuen Beiträge Word Serienbriefe: Mit einer Regel eine neue Zeile (b"return Taste") 8 Markerm2001 2125 13. Jun 2010, 18:20
CaBe Mit einer Regel eine neue Zeile (b"return Taste")
Keine neuen Beiträge Word Formate: In einer Zeile den letzten Teil rechtsbündig plazieren??? 2 jet-ti 1299 01. Dez 2008, 17:19
Gast In einer Zeile den letzten Teil rechtsbündig plazieren???
Keine neuen Beiträge Word Formate: Trennzeichen bzw. Bindestriche in Word in falscher Zeile 2 businesskasper 5877 07. Nov 2008, 13:14
Gast08 Trennzeichen bzw. Bindestriche in Word in falscher Zeile
Keine neuen Beiträge Word Formate: Zwei Abbildungsbeschriftungen in einer Zeile 4 Chalm 1598 21. Apr 2008, 11:54
Kathleen Zwei Abbildungsbeschriftungen in einer Zeile
Keine neuen Beiträge Word Formate: Bestimmtes Zeichen immer hochgestellt, wie? 6 blaue*lagune 6886 06. Feb 2008, 16:50
Gast Bestimmtes Zeichen immer hochgestellt, wie?
Keine neuen Beiträge Word Formate: Word 2003 Jede 5. Zeile nummerieren 2 Nakisu 5857 08. Nov 2007, 13:57
Gast Word 2003 Jede 5. Zeile nummerieren
Keine neuen Beiträge Word Formate: Text-Formularfeld verschiebt sich nach "Enter" (Ne 0 Psychotorsten 2325 18. Sep 2007, 19:57
Psychotorsten Text-Formularfeld verschiebt sich nach "Enter" (Ne
Keine neuen Beiträge Word Formate: Laufweite steht immer auf erweitert(editiert) 2 Hippolytus 1009 02. Jul 2007, 10:42
Hippolytus Laufweite steht immer auf erweitert(editiert)
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks