|
|
#2
11-05-2012, 02:08 PM
|
||||
|
||||
Hi Paul,
Try the following macro: Code:
Sub ReNumber()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument
For i = 1 To .Paragraphs.Count
.Paragraphs(i).Range.Words.First = i
Next
End With
Application.ScreenUpdating = True
End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] 
|
| Tags |
| find and replace |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 Bad view when using Find and Find & Replace - Word places found string on top line
|
paulkaye | Word | 4 | 12-06-2011 11:05 PM |
|
Is there a way to use "find/replace" to find italics words?
|
slayda | Word | 3 | 09-14-2011 02:16 PM |
|
Find and Replace
|
kjxavier | Word | 6 | 08-19-2011 09:56 PM |
|
Find and Replace
|
kjxavier | Word | 1 | 08-12-2011 08:57 AM |
|
Help with find and replace or query and replace
|
shabbaranks | Excel | 4 | 03-19-2011 08:38 AM |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode