Thread: [Solved] Add line numbers to end of each line
View Single Post
 
Old 08-20-2012, 07:35 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,387
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
It would have been helpful if you had said at the outset what the requirements are. You can still use the same basic approach, though - just skip step 3 and, instead, run the following macro:
Code:
Sub Number()
Dim i As Long
With ActiveDocument.Tables(1)
  For i = 1 To .Rows.Count
    .Columns(2).Cells(i).Range.Text = i
  Next
End With
End Sub
For installation & usage instructions, see: http://www.gmayor.com/installing_macro.htm
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote