Get a Paragraph’s Index (2003)

Topic

New Reply

I got so sick of trying to remember the syntax for doing this, that I put it in a function a while ago. Perhaps others can also get some use out of it.

Function GetParagraphIndex(para As Paragraph) As Long
    GetParagraphIndex = para.Range.Document.Range(0, para.Range.End).Paragraphs.Count
End Function

It returns the index of a paragraph, for example:

Sub WhatIsIndexOfSelectedParagraph()
    MsgBox GetParagraphIndex(Selection.Range.Paragraphs.First)
End Sub

Enjoy!

Reply | Quote

Replies

The answer is out there if you know how to search for it.

Amendment: Your version improves on those that use ActiveDocument, since the target document might not always be what Word considers the ActiveDocument.

Reply | Quote

Very interesting thread, and a great example of watching the group think out a problem. You may know I’m a big fan of the For Each loop, and post 113868 is yet another example of why.

BTW, You can use a similar trick with the Selection object:

MsgBox Selection.Document.Range(0, _
             Selection.Range.Paragraphs.First.Range.End).Paragraphs.Count

Not pretty, but shows how you can “walk” the object hierarchy from the bottom up, and back down again.

Reply | Quote

Very interesting thread, and a great example of watching the group think out a problem. You may know I’m a big fan of the For Each loop, and post 113868 is yet another example of why.

BTW, You can use a similar trick with the Selection object:

MsgBox Selection.Document.Range(0, _
             Selection.Range.Paragraphs.First.Range.End).Paragraphs.Count

Not pretty, but shows how you can “walk” the object hierarchy from the bottom up, and back down again.

Reply | Quote

The answer is out there if you know how to search for it.

Amendment: Your version improves on those that use ActiveDocument, since the target document might not always be what Word considers the ActiveDocument.

Reply | Quote