Zahlen in Dokument (Register) suchen und mit X addieren

07/07/2008 - 09:24 von Stefan | Report spam
Hallo,
ich habe folgendes Problem: Durch Erweiterung eines Dokumentes muss ich ein
fertiges handgemachtes Register korrigieren. Alles Seiten verschieben sich um
eine bestimmte Zahl. Ist es möglich diese Aufgabe in Word erledigen zulassen?
Es müssten also die Zahlen gesucht, mit X addiert und am Ende durch das
Ergebnis ersetzt werden.

Ich arbeite mit Word 2003 unter Windows Vista.

Vielen Dank für mögliche Tipps und Hinweise.
Gruß
Stefan
 

Lesen sie die antworten

#1 Lisa
07/07/2008 - 10:33 | Warnen spam
Hallo Stefan,

das kannst Du mit einem kleinen Makro erreichen. Das zu bearbeitende
Register markieren. Dann das Makro auslösen. Es wird zunàchst die Zahl
erfragt, um die alle Zahlen erhöht werden sollen, dann werden die
Zahlen addiert, und zwar für den markierten Bereich. Wenn das Register
sehr lang ist, kann es eine Weile brauchen, da das Makro durch alle
Wörter des markierten Bereichs schleift. Am besten zunàchst in einer
Kopie der Datei ausprobieren.
_____
Sub ZahlenAddieren()

Dim rng As Word.Range
Dim zuAddieren As Long
Dim i As Long

zuAddieren = InputBox("Bitte geben Sie die Anzahl der zu
addierenden Seiten ein!")
If Not IsNumeric(zuAddieren) Then
MsgBox "Sie haben keine Zahl eingegeben. Die Prozedur wird
beendet."
Exit Sub
End If

Set rng = Selection.Range.Duplicate

For i = 1 To rng.Words.Count
If IsNumeric(rng.Words(i)) Then
rng.Words(i).Text = CStr(CLng(rng.Words(i).Text +
zuAddieren))
End If
Next i

End Sub
_____
Falls Du nicht weißt, wie man den Code verwendet:
http://www.schreibbuero-richter.de/...enden.html

Gruß
Lisa
____
http://www.schreibbuero-richter.de

Ähnliche fragen