Seasons Greetings :-D
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 bookmark
Dim parra As Paragraph
Dim pText As String
Set iRng = ActiveDocument.Bookmarks("iTxt").Range ' works, the range is selected
For Each parra In iRng ' <<<< No matter what I do here the code fails with an unhelpful message
pText = parra.Range.Text
There is a sub to call this...
The error message is:
Run-time error '438'
Object doesn't support this property or method
When I try to debug the line UF.show is higlighted...