Populate UserForm List Box with Paragraph Text from MS Word Range

I am struggling with something that I thought would be close to simple... Populate a userform listbox with text from a specified range in a document. Each entry should be a single paragraph... (ideally I'd also like the paragraph number to show up; I'm using a list style).

Private Sub UserForm_Initialize() ' <<<< code in user form (UF)Dim iRng As Range ' this is defined by a bookmarkDim parra As ParagraphDim pText As StringWith ActiveDocumentSet iRng = ActiveDocument.Bookmarks("iTxt").Range ' works, the range is selectediRng.SelectFor Each parra In iRng ' <<<< No matter what I do here the code fails with an unhelpful messagepText = parra.Range.Text RefListBox.AddItem (pText)Next parraEnd WithEnd Sub

Featured Post

See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.

Nice table. Huge mess.
Maybe this was something you created way back before you figured out tabs or a document you received from someone else. Either way, using the spacebar to separate the columns resulted in a mess. Trying to convert text to t…

I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.

This video walks the viewer through the process of creating envelopes and labels, with multiple names and addresses.
Navigate to the “Start Mail Merge” button in the Mailings tab:
Follow the step-by-step process until asked to find the address doc…