Line numbering macro for MSWord

using MSWords line numbering feature

I have found out MSWord has a built in line numbering feature but that is not useful for what I'm trying to do because the lines are not really part of the text & thus do not carry over in copying & pasting

Work in progress

Saw your post on the excel side ... don't quite have a complete answer for you however maybe this will get the ball rolling:

Sub Macro1()

Selection.WholeStory

Dim nSentences As Integer
nSentences = Selection.Sentences.Count

Dim a As Integer
For a = 1 To nSentences
Selection.Sentences(a).InsertBefore a

Next a

End Sub

It seems to add the numbers but i'm having some difficulty in changing it to subscript.

If i get any further i will let you know.

Work in progress

Ok, i think i have it:

Sub Macro1()
'
' Macro1 Macro
'
'
Selection.WholeStory

Dim nSentences As Integer
nSentences = Selection.Sentences.Count

Dim a As Integer
Dim b As Integer
Dim tempstring As String

For a = 1 To nSentences

Selection.Sentences(a).InsertBefore a
Selection.Sentences(a).Select
tempstring = Str(a)
b = Len(tempstring) - 1
Selection.MoveLeft wdCharacter, 1
Selection.MoveRight Unit:=wdCharacter, Count:=b, Extend:=wdExtend
Selection.Font.Subscript = wdToggle
Selection.WholeStory

Next a

End Sub

Give it a try and let me know...i have not tested it with anything containing more than 30 sentences.

auto line numbering

Wow!!! It worked exactly as I wanted!!! I applied it to a 21 page document.

I did change it to superscript rather than subscript. Now I just need to figure out a few more things:

1. How to make it have an undo all (undo only undoes the last inserted number)
2. How to make a php version to work with the Drupal-based text editor called FCKeditor with a clickable button that applies the line numbers (or removes them -- toggle on-off).

I'm trying to host written theological debates at my website thekingdomcome.com but I noticed from debates I've moderated elsewhere that the biggest need is for documents to be number by sentence so the participants can easily reference the other person's arguments line by line.

So, anyhow, this has greatly helpd. Thanks sooooooo much. You're the greatest.

I'm really glad it worked for you,

Just curious what version of word are you using? I used the undo in 2003 and it erased all the way back to the first line number.

thanks for the challenge, this was my first word macro!

The version I tried it on is 2002 so that might be the problem. But yes, it works real well. Thanks again so much. Fine job.