Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Suchfeld in Worddokument einbauen
zurück: Abhängigkeiten bei 2 Drop-Down Elementen weiter: Combobox mit Links 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
schitho
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Feb 2009, 17:28
Rufname:

Suchfeld in Worddokument einbauen - Suchfeld in Worddokument einbauen

Nach oben
       Version: Office 2003

Gibt es eine Möglichkeit in einem Worddokument ein Suchfeld einzubauen mit dem dann alle gefundenen Texte farblich (z.B. gelb) hervorgehoben werden können.

Konkret geht es darum:

Ich hab ein Dokument, dass ständig wächst. Es wird also immer wieder etwas ergänzt.

Am Anfang des Dokuments sollte es ein Feld geben, in dem man das gesuchte Wort eingeben kann. Über eine Schaltfläche "suchen" sollen nun im Worddokument alle gefundenen Text farblich gelb markiert werden.

Dadurch kann man auf einen Blick erkennen, wo überall der gesuchte Text im Worddokument vorkommt.

Sobald eine neue Suche durchgeführt wird, sollen aber die alten farblichen Markierungen wieder gelöscht werden.

Geht so etwas?

Wie kann man das realisieren?

Gibt es dazu vielleicht schon ein fertiges Makro????

Vielen Dank für Eure Hilfe

Gruß
Thomas
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
25. Feb 2009, 20:00
Rufname:
Wohnort: Leipzig


AW: Suchfeld in Worddokument einbauen - AW: Suchfeld in Worddokument einbauen

Nach oben
       Version: Office 2003

Hallo Thomas,

über die Benutzerschnittstelle könntest Du das auch machen. Zunächst in Format - Hervorheben (oder Stift in der Symbolleiste die Farbe festlegen).
Dann blendest Du den Dialog Suchen/Ersetzen ein: Menü Bearbeiten - Ersetzen (oder Strg H). Dann den Button Erweitern klicken.

Im Suchfeld gibst Du das Zielwort ein. Unten auf den Button Format - Hervorheben klicken, und zwar zweimal, damit unter dem Suchfeld steht: Nicht hervorheben.

Im Ersetzenfeld gibst Du das gleiche Wort ein. Und wieder den Button Format - Hervorheben, nur einmal, damit unter dem Ersetzenfeld steht: Hervorheben.

Nun lässt Du alle ersetzen. Alle Fundstellen werden in der vorher festgelegten Farbe hervorgehoben.

Genauso gehst Du vor, wenn die Hervorhebungen wieder aufgehoben werden sollen: Zielwort - Hervorheben ersetzen durch Zielwort - Nicht hervorheben.

Natürlich kannst Du dafür auch eine Userform mit einem Textfeld für den Suchbegriff und zwei Buttons zum Hervorheben und zur Aufhebung der Hervorhebung bauen. Ob Du den Aufwand treiben willst, kannst Du nur selbst entscheiden.

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


Verfasst am:
26. Feb 2009, 18:26
Rufname:

AW: Suchfeld in Worddokument einbauen - AW: Suchfeld in Worddokument einbauen

Nach oben
       Version: Office 2003

Hi!

Mit folgenden Makros hab ich es nun versucht:

Aufruf des Makros über eine Schaltfläche:

Code:

Sub MarkierteSuche(GesuchterText)
  MarkierungEntfernen
  TextMarkieren (GesuchterText)
End Sub



Makro, um alle Markierungen zu entfernen:
Code:

Sub MarkierungEntfernen()

  Dim rngTemp As Range

  Set rngTemp = ActiveDocument.Range(Start:=0, End:=0)
  With rngTemp.Find
    .ClearFormatting
    .Highlight = True
    With .Replacement
        .ClearFormatting
        .Highlight = False
    End With
    .Execute Replace:=wdReplaceAll, Forward:=True, FindText:="", _
         ReplaceWith:="", Format:=True
  End With

End Sub


Makro, um einen gesuchten Text zu markieren:
Code:

Sub TextMarkieren(GesuchterText)

  Dim rngTemp As Range

  Set rngTemp = ActiveDocument.Range(Start:=0, End:=0)
  With rngTemp.Find
    .ClearFormatting
    .Text = GesuchterText
    With .Replacement
        .ClearFormatting
        .Highlight = True
    End With
    .Execute Replace:=wdReplaceAll, Forward:=True, FindText:=GesuchterText, _
         ReplaceWith:=GesuchterText, Format:=True
  End With

End Sub



Das funktioniert auch halbwegs. Allerdings wird dabei leider auch der Text verändert.

Beispiel:
Wird nach ST gesucht. Wird auch das Wort Klarstellung richtigerweise gefunden. Allerdings wird nun daraus:
KlarSTellung

Wie kann ich das Makro ändern, dass zwar die Buchstaben st markiert werden, jedoch nicht daraus ST wird?

Danke
Gruß
Thomas
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
26. Feb 2009, 18:43
Rufname:
Wohnort: Leipzig

AW: Suchfeld in Worddokument einbauen - AW: Suchfeld in Worddokument einbauen

Nach oben
       Version: Office 2003

Hallo thomas,

falls ST nur einzeln vorkommt (Abkürzung), könntest Du ja beim Suchen den Schalter nehmen:
Code:
 .MatchWholeWord = True

Ansonsten die Suche mit Platzhaltern verwenden (Button: Sonstiges).

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

Guter Rat ist teuer!
schitho
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Feb 2009, 18:49
Rufname:


AW: Suchfeld in Worddokument einbauen - AW: Suchfeld in Worddokument einbauen

Nach oben
       Version: Office 2003

Hallo Lisa!

Das Suchergebnis stimmt ja mit meinem Makro. Nur wollte ich nicht den Text austauschen, sondern nur hervorheben.

Das Wort Klarstellung, soll bei einer Suche mit ST gefunden werde, jedoch soll im Wort nur das st markiert, nicht aber die Buchstaben st durch ST ausgetauscht (und markiert) werden.

War das halbwegs verständlich?

Ich möchte also nur alle gefundenen Texte markieren (hervorheben).

Gruß
Thomas
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
26. Feb 2009, 18:53
Rufname:
Wohnort: Leipzig

AW: Suchfeld in Worddokument einbauen - AW: Suchfeld in Worddokument einbauen

Nach oben
       Version: Office 2003

Hallo Thomas,

aha, nimm mal den Schalter:
Code:
.MatchCase = True

Dann wird Groß- und Kleinschreibung nicht angetastet. Allerdings muss dann nach st und St getrennt gesucht werden.

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

Guter Rat ist teuer!
schitho
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Feb 2009, 22:43
Rufname:

AW: Suchfeld in Worddokument einbauen - AW: Suchfeld in Worddokument einbauen

Nach oben
       Version: Office 2003

Hallo Lisa!

Das nützt aber nichts. Sad

Wenn ich nach ST suche, wird beim Wort Klarstellung trotzdem das Wort in KlarSTellung umgewandelt. Ich brauch daher eine Suche die alle Varianten der Suche zulässt: ST, st, St, sT

und dabei immer auch das Wort Klarstellung findet. Dabei aber den Text nicht ändert, sondern nur die Formatierung (farblich Markierung bzw. Hervorheben des gefundenen Textes)

Besteht irgendwie die Möglichkeit den gefundenen Text auszulesen und mit sich selbst, ergänzt um die Markierung zu ersetzen?

Gruß
Thomas
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
26. Feb 2009, 23:41
Rufname:
Wohnort: Leipzig

AW: Suchfeld in Worddokument einbauen - AW: Suchfeld in Worddokument einbauen

Nach oben
       Version: Office 2003

Hallo Thomas,

das gelingt bei mir so, Deine Prozedur:
Code:
Sub TextMarkieren(GesuchterText)

  Dim rngTemp As Range

  Set rngTemp = ActiveDocument.Range(Start:=0, End:=0)
  With rngTemp.Find
    .ClearFormatting
    .Text = GesuchterText
    With .Replacement
        .ClearFormatting
        .Highlight = True
    End With
    .Execute Replace:=wdReplaceAll, Forward:=True, FindText:=GesuchterText, _
         ReplaceWith:=GesuchterText, Format:=True
  End With

End Sub

aber so aufgerufen:
Code:
Sub Test()

    Dim str As String

    str = "St"
    str = LCase(str)
    Call TextMarkieren(str)

End Sub

Habe allerdings hier Word 2002. Probier bitte mal aus.

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

Guter Rat ist teuer!
Gast



Verfasst am:
27. Feb 2009, 00:29
Rufname:


AW: Suchfeld in Worddokument einbauen - AW: Suchfeld in Worddokument einbauen

Nach oben
       Version: Office 2003

Hallo Lisa!

Hab es gerade unter Word 2002 ausprobiert. Es funktioniert Very Happy

Vielen Dank

Gruß
Thomas
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: Oberste Zeile im Word-Dokument wird falsch angezeigt 2 Word-User 1714 09. Mai 2012, 09:02
Handbuch Oberste Zeile im Word-Dokument wird falsch angezeigt
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: Worddokument mit Access verbinden 9 azwinzds 1243 08. Nov 2011, 13:49
charlybrown Worddokument mit Access verbinden
Keine neuen Beiträge Word Formate: Datumsfunktion in ein Worddokument eifügen 4 azwinzds 1905 20. Okt 2011, 16:12
azwinzds Datumsfunktion in ein Worddokument eifügen
Keine neuen Beiträge Word Formate: Adresse in Worddokument automatisch ändern 0 askalun 1335 09. Jan 2011, 01:39
askalun Adresse in Worddokument automatisch ändern
Keine neuen Beiträge Word Serienbriefe: Excel-Gebührentabelle in Word Serienbrief einbauen 1 KLaus 123 1103 06. Aug 2010, 12:07
charlybrown Excel-Gebührentabelle in Word Serienbrief einbauen
Keine neuen Beiträge Word Serienbriefe: Word-Dokument als Datenquelle für Serienbrief 0 seppwert 807 05. Jul 2010, 16:42
seppwert Word-Dokument als Datenquelle für Serienbrief
Keine neuen Beiträge Word Formate: Formeln werden in Word-Dokument als Grafik hinterlegt 4 rocknrolli 1329 01. Jul 2010, 16:22
Gast Formeln werden in Word-Dokument als Grafik hinterlegt
Keine neuen Beiträge Word Formate: Dateigröße bei Word-Dokument ohne Bilder reduzieren 5 crocoandy 3158 02. März 2009, 22:49
Lisa Dateigröße bei Word-Dokument ohne Bilder reduzieren
Keine neuen Beiträge Word Formate: Plötzliche gepunkteter Rahmen um Word-Dokument 2 mariso 4381 18. Okt 2008, 17:40
Lisa Plötzliche gepunkteter Rahmen um Word-Dokument
Keine neuen Beiträge Word Serienbriefe: Word-Dokument als Lieferschein 0 trailsurfer76 3258 24. Jun 2008, 14:45
trailsurfer76 Word-Dokument als Lieferschein
Keine neuen Beiträge Word Formate: Bild als festen Hintergrund einbauen... 1 Gast 1921 29. Mai 2008, 21:17
Maulende Myrte Bild als festen Hintergrund einbauen...
 

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