Supportnet / Forum / Windows98
Wie ersetzt man mit einer fortlaufendenNummer
Frage
Ich würde gern in einem Text die Zahl 1556(kommt ungefähr 150 mal vor)mit einer fortlaufenden Zahl ersetzen
Erste 1556 -> 025
Zweite 1556 -> 026 usw.
Geht das überhaupt ?
Antwort 1 von Martina
Hallo,
ich gehe mal davon aus, dass du Ziffern in einem Word-Dokument ersetzen willst.
Habe dir dazu ein kleines Macro geschrieben.
Gruß Martina
ich gehe mal davon aus, dass du Ziffern in einem Word-Dokument ersetzen willst.
Habe dir dazu ein kleines Macro geschrieben.
Sub Makro()
'Bevor dieses Macro ausgeführt wird musst du vor die 1. zu ändernde Ziffer gehen.
neu = 25 'neue Nummerierung beginnen mit z.B. 25
With Selection.Find
.Text = "01556" 'Ziffer die ersetzt werden soll
.Replacement.Text = "0" & neu
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
While gesamt < 150 'Anzahl der zu ändernden Ziffern, bzw. so oft wie die Schleife durchlaufen werden soll,
'wenn du die Anzahl nicht genau weißt, kannst du sicherheitshalber ja etwas mehr eingeben
neu = neu + 1
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
With Selection.Find
.Text = "01556" 'Ziffer die ersetzt werden soll
.Replacement.Text = "0" & neu
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
gesamt = gesamt + 1
Wend
End Sub
Gruß Martina
Antwort 2 von DumDum
Danke Martina
Ich werde es heute abend testen.
Gruss
Ich werde es heute abend testen.
Gruss
Antwort 3 von Martina
Hat es denn geklappt?
Martina
Martina