Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Probleme mit Suchen/Ersetzen per Makro (mit Platzhaltern)
zurück: Eingefügte u. verknüpfte Grafik anpassen weiter: Mit AD Container-Inhalt eine DropDown-Liste füllen 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
Marco_77
Gast


Verfasst am:
14. März 2010, 21:34
Rufname:

Probleme mit Suchen/Ersetzen per Makro (mit Platzhaltern) - Probleme mit Suchen/Ersetzen per Makro (mit Platzhaltern)

Nach oben
       Version: Office 2003

Hallo zusammen,

ich habe einen Text in dem verschiedene Dinge in Klammern stehen.

Das ist ein kleiner Auszug aus dem Text:

"nirgendwo zustimmen. (ON) (.) Weil sie die Unterlagen bereits (OFF) unterschrieben haben. Wir brauchen ihre Zustimmung nicht. Das wollte ich sie nur wissen lassen. Und sollten sie Bedenken haben, (ins ON) dass dieser Vorgang (ZÄSUR) nicht funktioniert… (.) Keine Sorge. (.) (OFF) Wir haben es bereits zuvor an einem (ins ON) menschlichen Subjekt getestet. (.) (OFF) Und so wie es (ON) scheint, (ZÄSUR) war dieser Test (ZÄSUR) ein voller Erfolg"

möchte jetzt alle Klammern suchen und diese inklusive dem darin befindlichen Text in einer anderen Farbe formatieren.

bin auch schon nahe dran folgender Code funktioniert (fast).
Er formatiert nur leider nicht alle Klammern und ich begreife nicht wiso. Das letze "(ZÄSUR) findet er, das davor nicht. Das erste zweite und letzte "(.)" findet er nicht aber das dritte. Und so weiter...

Hier der Code:

Code:

Private Sub CommandButton3_Click()

Selection.HomeKey Unit:=wdStory
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "\(*\)"
        '.Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    While .Execute
        Selection.Find.Execute
        Selection.Font.Color = wdColorRed
        Selection.Find.ClearFormatting
    Wend
    End With
 
End Sub


Bin leider ratlos und für jeden Tip dankbar.

Danke Marco
sternkrabbe
aufgestiegen in: Zweite Liga


Verfasst am:
14. März 2010, 23:03
Rufname:


AW: Probleme mit Suchen/Ersetzen per Makro (mit Platzhaltern - AW: Probleme mit Suchen/Ersetzen per Makro (mit Platzhaltern

Nach oben
       Version: Office 2003

Du führst .Execute zweimal aus (While .Execute und: Selection.Find.Execute), aber nur beim zweiten Mal nimmst du die Formatierung vor. Deshalb überspringt er jedes zweite Ergebnis.
_________________
"Kleine Fehler im Code erhöhen den Lerneffekt."
aktuell am Start: Office 2004(Mac), 2007, 2008, 2011
Marco_77
Gast


Verfasst am:
15. März 2010, 00:30
Rufname:

AW: Probleme mit Suchen/Ersetzen per Makro (mit Platzhaltern - AW: Probleme mit Suchen/Ersetzen per Makro (mit Platzhaltern

Nach oben
       Version: Office 2003

hab garnicht erkannt das da eine Logik hinter der Formatierung steht.

Leider benötige ich noch einen Tip wie ich den doppelten Aufruf Umgehen kann.

Ich muß ja irgendwie eine Schleife hinbekommen damit alles gesucht wird, oder?
Marco_77
Gast


Verfasst am:
15. März 2010, 11:24
Rufname:


AW: Probleme mit Suchen/Ersetzen per Makro (mit Platzhaltern - AW: Probleme mit Suchen/Ersetzen per Makro (mit Platzhaltern

Nach oben
       Version: Office 2003

Hab's doch noch hinbekommen.

dieser Code funktioniert.
Code:

...
...
     While .Execute
        .Parent.Font.Color = wdColorGray40
     Wend


Danke für den Tipp.
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 per Outlook, Adressquelle Excel 6 mohi 22869 20. Feb 2013, 15:26
Pseudo_Gast Serienbrief per Outlook, Adressquelle Excel
Keine neuen Beiträge Word Serienbriefe: Word Dokument per Klick auf Button per mail versenden 3 lexi3112 2274 19. Dez 2012, 16:27
Alex3112 Word Dokument per Klick auf Button per mail versenden
Keine neuen Beiträge Word Serienbriefe: Rechnungen per Serienbrief 1 CM13 726 13. Jan 2012, 20:57
Synapse Rechnungen per Serienbrief
Keine neuen Beiträge Word Serienbriefe: Word Serienbrief als pdf per email verschicken 3 vitalik_1984 15548 15. Dez 2011, 21:54
mumpel Word Serienbrief als pdf per email verschicken
Keine neuen Beiträge Word Serienbriefe: Leerzeichen suchen von rechts 2 senussi 1139 15. Jan 2011, 11:01
Gast Leerzeichen suchen von rechts
Keine neuen Beiträge Word Serienbriefe: Serienbrief per Fax verschicken 0 phatair 1586 18. Nov 2010, 20:18
phatair Serienbrief per Fax verschicken
Keine neuen Beiträge Word Serienbriefe: Serienbrief als einzelne PDFs per e-Mail versenden? 1 marlis 3049 09. Aug 2010, 13:41
Lord_Movie Serienbrief als einzelne PDFs per e-Mail versenden?
Keine neuen Beiträge Word Serienbriefe: Seriendruck in E-Mail (per Anlage) - E-Mail mit Text 1 Gast 2513 16. Jun 2010, 13:44
Gast Seriendruck in E-Mail (per Anlage) - E-Mail mit Text
Keine neuen Beiträge Word Formate: Makro mit polnischen Zeichen 3 Django 1878 30. Apr 2010, 15:39
Gast Makro mit polnischen Zeichen
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Word Serienbriefe: Access Formulardaten per Button an Word Bookmarks übergeben 5 Mike Access Neuling 3468 31. Jul 2009, 14:44
Ina Access Formulardaten per Button an Word Bookmarks übergeben
Keine neuen Beiträge Word Serienbriefe: Serienbrief per Mail über Outlook verschicken 7 Gast 10574 30. Dez 2008, 19:25
dr.dalle Serienbrief per Mail über Outlook verschicken
Keine neuen Beiträge Word Serienbriefe: Datensätze in dr Datenquelle suchen u. ins Seriendoc einfügn 0 Cachina 617 17. Okt 2008, 09:13
Cachina Datensätze in dr Datenquelle suchen u. ins Seriendoc einfügn
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage