Get paragraph number from macro

gmayor · #2 06-29-2015, 10:49 PM

You are probably going to have to do a bit of lateral thinking to grab this number from the autonumbered field in your document. The following macro should work for the paragraph at the cursor

Code:

Dim ofld As Field
Dim orng As Range
    Set ofld = Selection.Paragraphs(1).Range.Fields(1)
        ofld.Unlink
        Set orng = Selection.Paragraphs(1).Range.Previous
        orng.Collapse 0
        orng.MoveEndUntil Chr(9)
        orng.Select
        MsgBox orng.Text
        ActiveDocument.Undo

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to find number of coma and then add that number of rows in word using macro?	PRA007	Word VBA	7	05-27-2015 10:45 PM
Figure number for repeated use in paragraph	rahul4msoffice	Word	1	05-01-2013 11:35 PM
How place paragraph number in a text box?	peytontodd	Word	2	12-13-2012 03:17 PM
How set up a 'paragraph number'?	peytontodd	Word	2	12-11-2012 06:55 PM
How to identify the paragraph number you are on	SaneMan	Word VBA	1	05-18-2011 05:43 AM