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 With ActiveDocument Set iRng = ActiveDocument.Bookmarks("iTxt").Range ' works, the range is selected iRng.Select For Each parra In iRng ' <<<< No matter what I do here the code fails with an unhelpful message pText = parra.Range.Text RefListBox.AddItem (pText) Next parra End With End Sub
Sub myUF() UF.Show End Sub
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.