Thread: [Solved] Find & Replace formula for numbers?
View Single Post
 
Old 04-18-2011, 12:31 AM
macropod's Avatar
macropod macropod is offline Windows 7 32bit Office 2000
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,375
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
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]
Reply With Quote