11-05-2012, 02:08 PM
|
|
Administrator
|
|
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,963
|
|
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
For installation & usage instructions, see: http://www.gmayor.com/installing_macro.htm
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|