SMehta
Try the following
Code:
Dim aPar As Paragraph, sList As String, i As Long, sText As String, prghCnt As Integer, myArrayParaList As Variant
For i = 1 To ActiveDocument.Paragraphs.Count
sText = Trim(Trim(ActiveDocument.Paragraphs(i).Range.Text))
If Split(sText, vbCr)(0) <> "" Then
sList = sList & i & ","
myArrayParaList = Split(sList, ",")
End If
Next i
cmbParaNos.List = myArrayParaList
Changed the following line
myArrayParaList = Array(sList) to
myArrayParaList = Split(sList, ",")
This does the trick and you wiil have Para nos in your combobox one below the other.
SamD