Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Есть в документе такой элемент типа комбо бокс с постоянным списком. У каждого значения есть краткое имя и значение. Имя выбранного элемента получаю функцией, например: ActiveDocument.ContentControls(2).Range, а какой функцией получить значение?
Пример из справки:
Dim objcc As ContentControl
Dim objLE1 As ContentControlListEntry
Dim objLE2 As ContentControlListEntry
Dim intCount As Integer
Set objcc = ActiveDocument.ContentControls.Item(3)
If objcc.Type = wdContentControlComboBox Or _
objcc.Type = wdContentControlDropdownList Then
'First item in the list.
Set objLE1 = objcc.DropdownListEntries.Item(1)
'Last item in the list.
Set objLE2 = objcc.DropdownListEntries.Item(objcc.DropdownListEntries.Count)
For intCount = 1 To objcc.DropdownListEntries.Count
'Move the first item down one.
objLE1.MoveDown
'Move the last item up one.
objLE2.MoveUp
Next
End IfДа, спасибо, разобрался.
Отредактировано mikkelle (07.10.2010 11:32:11)
Что разобрался, отлично. приведи решение.
Ну, практически тоже самое, что приведено и у Вас в примере.
Dim objCc As ContentControl
Dim objLe As ContentControlListEntry
Set objCc = ActiveDocument.ContentControls(4)
For Each objLe In objCc.DropdownListEntries
If objLe.Text = objCc.Range Then
ActiveDocument.Bookmarks("Control ").Range=objLe.Value
End If
NextА, понятно. Просто сравниваешь текст элемента списка с отображаемым. Я думал, может какое изящное решение нашлось, не в лоб.:)
Да даже у Microsoft смотрел (в сущности от туда и взял идею). Ничего нет. У этого элемента (хоть и Комбо) напрочь отсутствует ListIndex и ни чего кроме краткого имени сходу выхватывать не удается. Одним словом - это навороченное поле, не более (но и не менее)!
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться