1

Тема: Значение ContentControls

Есть в документе такой элемент типа комбо бокс с постоянным списком. У каждого значения есть краткое имя и значение. Имя выбранного элемента получаю функцией, например: ActiveDocument.ContentControls(2).Range, а какой функцией получить значение?

2

Re: Значение ContentControls

Пример из справки:

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
Лучше день потерять — потом за пять минут долететь!

3

Re: Значение ContentControls

Да, спасибо, разобрался.

Отредактировано mikkelle (07.10.2010 11:32:11)

4

Re: Значение ContentControls

Что разобрался, отлично. приведи решение.

Лучше день потерять — потом за пять минут долететь!

5

Re: Значение ContentControls

Ну, практически тоже самое, что приведено и у Вас в примере.

    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

6

Re: Значение ContentControls

А, понятно. Просто сравниваешь текст элемента списка с отображаемым. Я думал, может какое изящное решение нашлось, не в лоб.:)

Лучше день потерять — потом за пять минут долететь!

7

Re: Значение ContentControls

Да даже у Microsoft смотрел (в сущности от туда и взял идею). Ничего нет. У этого элемента (хоть и Комбо) напрочь отсутствует ListIndex и ни чего кроме краткого имени сходу выхватывать не удается. Одним словом - это навороченное поле, не более (но и не менее)!