|
|
#2
04-18-2011, 12:31 AM
|
||||
|
||||
Hi Griff,
Try the following macro: Code:
Sub Renumber()
Dim i As Long
For i = 1 To Selection.Words.Count
With Selection.Words(i)
If IsNumeric(.Text) Then
.Text = (CLng(.Text) + 6) Mod 8 + 1
End If
End With
Next
End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] 
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 Help with find and replace or query and replace
|
shabbaranks | Excel | 4 | 03-19-2011 08:38 AM |
| Find and replace page numbers in body of text | tollanarama | Word | 3 | 02-13-2011 06:00 AM |
|
replace automatically generated page numbers
|
LitWissOnline | Word | 3 | 01-24-2011 03:40 PM |
| find and replace | anil3b2 | Word | 0 | 08-03-2010 11:30 PM |
| Find /Replace Help | ilcaa | Word | 2 | 11-02-2009 08:41 AM |
Windows 7 32bit 
Office 2000
Threaded Mode