![]() |
#1
|
|||
|
|||
![]()
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 Will appreciate if you could help me in correcting the same Thank you SMehta |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
cryptogram | Word | 3 | 07-28-2015 12:45 PM |
![]() |
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 |
![]() |
Ulodesk | Drawing and Graphics | 4 | 03-10-2011 08:16 AM |