Trying to get number of para in Combobox

SMehta · #1 02-19-2021, 03:14 AM

Hello

Basically i was tryling to upload the all the written paragraph numbers into Combobox
and not the Empty ones

I tried the following code but not able to upload the values in combobox one below the other

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 = Array(sList)
    End If
  Next i
  cmbParaNos.List = myArrayParaList

Now i am unable to have values one below the other
Will appreciate if you could help me in correcting the same

Thank you
SMehta

SamDsouza · #2 02-20-2021, 04:47 AM

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

SMehta · #3 02-20-2021, 07:15 AM

Thanks a tonne SamD

Indeed this was perfect one.
Now Slowly Getting bit familar with VBA-Word

SMehta
Thread 1: No: 46512 : Post No2 : TM 18

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Formatting is not confined to just the one para	cryptogram	Word	3	07-28-2015 12:45 PM
Getting rid of para keystrokes at the end of every line	baudinot	Word	1	01-05-2012 03:37 PM
Don't add space between para of the same style	ghumdinger	Word	3	09-19-2011 02:04 AM
distorted last para lines when justifying	RSF	Word	0	08-18-2011 10:11 PM
Tables that carry hidden para styles	Ulodesk	Drawing and Graphics	4	03-10-2011 08:16 AM