Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
String durchsuchen nach Klein und Großbuchstaben - Word |
14.06.2022 10:27:27 |
Kerstin |
|
|
|
14.06.2022 11:31:08 |
Gast76327 |
|
|
|
14.06.2022 15:50:57 |
Gast11184 |
|
|
|
14.06.2022 18:16:52 |
Gast7777 |
|
|
|
14.06.2022 20:40:27 |
KERSTIN |
|
|
|
15.06.2022 01:46:27 |
Gast7777 |
|
|
|
15.06.2022 18:45:33 |
Gast41044 |
|
|
|
15.06.2022 19:02:12 |
Gast7777 |
|
|
Von:
Kerstin |
Datum:
14.06.2022 10:27:27 |
Views:
1099 |
Rating:
|
Antwort:
|
Thema:
String durchsuchen nach Klein und Großbuchstaben - Word |
Hallo,
ich versuche alle Platzhalter in einem Wordokument beginnend und endend mit "%" zu suchen. Sobald etwas gefunden wurde, soll das Ergebnis darauf geprüft werden, ob es kleine und/oder große Buchstaben enthält. Die Suche mache ich über selection.find mit der Variabel "%*%". Nun soll der gefundene Text "RepeatBMK" daraufhin untersucht werden, ob er kleine und/oder große Buchstaben enthält. Es könnten auch Zahlen enthalten sein, die nicht interessieren oder auch "_" die auch nicht weiter interessieren. Nur wenn der String (abgesehen von Zahlen oder "_") Großbuchstaben enthält, soll der Text ersetzt werden. Da komme ich dann aber alleine klar.
Kann mir jemand dabei helfen?
Danke und Grüße
Kerstin
Sub Prozent_Suchen()
'
Dim RepeatBMK As String
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
End With
Selection.Find.Execute
Selection.Find.ClearFormatting
Selection.Find.Font.Color = wdColorAutomatic
Selection.Find.Replacement.ClearFormatting
RepeatBMK = Selection
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- 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 geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- 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
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
String durchsuchen nach Klein und Großbuchstaben - Word |
14.06.2022 10:27:27 |
Kerstin |
|
|
|
14.06.2022 11:31:08 |
Gast76327 |
|
|
|
14.06.2022 15:50:57 |
Gast11184 |
|
|
|
14.06.2022 18:16:52 |
Gast7777 |
|
|
|
14.06.2022 20:40:27 |
KERSTIN |
|
|
|
15.06.2022 01:46:27 |
Gast7777 |
|
|
|
15.06.2022 18:45:33 |
Gast41044 |
|
|
|
15.06.2022 19:02:12 |
Gast7777 |
|
|