(по индексу)
If ComboBox1.ListIndex <> -1 Then
...
End If
(по значению)
If ComboBox1.Text = "Some text" Then
...
End If
For i=1 to ListBox1.ListCount-1
If ListBox1.Selected(i) = True Then
...
End If
Next
If Not (ActiveDocument.InlineShapes.Item(1).OLEFormat Is Nothing) Then
If ActiveDocument.InlineShapes.Item(1).OLEFormat.Object.Name = "ComboBox1" Then
MsgBox "Found " & ActiveDocument.InlineShapes.Item(1).OLEFormat.Object.Name
' Здесь напишите нужный вам код
End If
End If
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.