pedie
Well-known Member
- Joined
- Apr 28, 2010
- Messages
- 3,875
Here is my current code
Sub removewithdots()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
Dim LR As Long, i As Long, j As Integer, c As Range<o></o>
LR = Range("A" & Rows.Count).End(xlUp).Row<o></o>
For Each c In Range("A1:D" & LR)<o></o>
For j = 0 To 9<o></o>
c.Value = Replace(c.Value, j, ".")<o></o>
Next j<o></o>
Next c<o></o>
End Sub
This remove any numeric numbers in excel. how do i go about removing it in word 2007.
Thanks again!!
Sub removewithdots()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
Dim LR As Long, i As Long, j As Integer, c As Range<o></o>
LR = Range("A" & Rows.Count).End(xlUp).Row<o></o>
For Each c In Range("A1:D" & LR)<o></o>
For j = 0 To 9<o></o>
c.Value = Replace(c.Value, j, ".")<o></o>
Next j<o></o>
Next c<o></o>
End Sub
This remove any numeric numbers in excel. how do i go about removing it in word 2007.
Thanks again!!