Hallo Greg,
falls vor der Personalnummer immer 'Personalnummer' oder etwas anderes bekanntes steht, würde danach suchen und die nachfolgenden Ziffern umwandeln.
Falls es tatsächlich nicht so einfach geht, muss die gewünschte Überprüfung wohl durchgeführt werden. Wie soll dann aber zwischen der Jahreszahl und der Personalnummer unterschieden werden, wenn letztere auch in dem angegebenen Intervall liegt?
Folgendes Makro ersetzt alle Ziffen in Zahlen, die nicht im Intervall von 1990 bis 2020 liegen, durch * ersetzen. Ich denke, es ist leicht anpassbar, falls erforderlich.
With Selection
.HomeKey wdStory
Do
.MoveUntil "0123456789"
st = .start
If st1 = st Then Exit Do
.MoveWhile "0123456789"
en = .End
If en - st = 4 Then
ActiveDocument.Range(st, en).Select
If InStr("1990 1991 ... 2020", .text) = 0 Then .TypeText "****" 'fehlende Jahreszahlen noch einsetzen!!
.Collapse wdCollapseEnd
st1 = st
End If
Loop While st1 = st
End With
Gruß
Holger
|