|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
04.03.2011 10:13:14 |
Greg |
|
|
|
04.03.2011 12:19:47 |
Severus |
|
|
|
04.03.2011 12:25:32 |
Holger |
|
|
|
04.03.2011 13:24:13 |
Greg |
|
|
|
05.03.2011 00:35:21 |
Severus |
|
|
|
04.03.2011 18:14:19 |
Severus |
|
|
 Jahreszahlen (z.B. 1990 - 2020) auslassen? |
05.03.2011 16:49:12 |
Gast48962 |
|
|
|
08.03.2011 14:38:23 |
Greg |
|
|
Von:
Gast48962 |
Datum:
05.03.2011 16:49:12 |
Views:
483 |
Rating:
|
Antwort:
|
Thema:
Jahreszahlen (z.B. 1990 - 2020) auslassen? |
|
Hallo Greg,
ich habe dein Makro nicht ausprobiert und deinen Code nicht besonders analysiert, weil es mir viel zu kompliziert erscheint. Da du auch ersetzen darfst, wie du schreibst, ersetze doch das gesamte Makro. Deshalb noch einmal meinen Vorschlag (mit geringen Verallgemeinerungen), der nicht nur kürzer ist, sondern auch vermutlich schneller läuft.
For i = 1990 To 2020:a = a + Str(i):Next i
With Selection
.HomeKey wdStory
Do
.MoveUntil "0123456789"
st = .start
If st1 = st Then Exit Do
.MoveWhile "0123456789"
en = .End
ActiveDocument.Range(st, en).Select
If InStr(a, .text) = 0 Then .TypeText String(en - st, "*")
.Collapse wdCollapseEnd
st1 = st
Loop While st1 = st
End With
Gruß
Holger
|
- 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
|
|
04.03.2011 10:13:14 |
Greg |
|
|
|
04.03.2011 12:19:47 |
Severus |
|
|
|
04.03.2011 12:25:32 |
Holger |
|
|
|
04.03.2011 13:24:13 |
Greg |
|
|
|
05.03.2011 00:35:21 |
Severus |
|
|
|
04.03.2011 18:14:19 |
Severus |
|
|
Jahreszahlen (z.B. 1990 - 2020) auslassen? |
05.03.2011 16:49:12 |
Gast48962 |
|
|
|
08.03.2011 14:38:23 |
Greg |
|
|