Somehow managed but still not Suceesful
Code:
Private Sub cmbParaNos_Change()
Dim i As Long
Dim oBkMrk As Bookmark
Dim wdActDoc As Document
Set wdActDoc = ActiveDocument
With cmbParaNos
If Not IsArrow Then .List = myArrayParaList
If .ListIndex <> -1 And Len(.Text) Then
For i = .ListCount - 1 To 0 Step -1
If InStr(1, .List(i), .Text, 1) = 0 Then .RemoveItem i
Next i
.DropDown
End If
If .ListIndex > -1 Then
Else
MsgBox .Text & " Empty Para No(s)."
End If
End With
End Sub
The above coding for correct Msgbox appearing is not sufficient enough to derive the 1st and 2nd Criteria Msg
As the List contains only Para.Nos with details
Msgbox Required here as per Criteria
1. Msg for Empty Para.nos which are not shown in the List
2. Msg for Non-Existing Para Nos.
For eg Total Para are 243 with Empty Paras
so 244, 245 etc are
if typed/Selected 244 then MSGBOX 244 "DOES NOT EXISTS"
if typed/Selected 245 then MSGBOX 245 "DOES NOT EXISTS"
if typed/Selected 242 then MSGBOX 242 "Empty Para No(s)."
SMehta
Thread 3: No: 46521 : Post No6 : TM 22