Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 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
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Значение ContentControls
Различные компьютерные приложения – это такая вещь, которую нельзя изучить до конца. Тут свои секреты, различные пути, удобные варианты работы и настроек. Наш сайт о Microsoft Office Word даст ответ про: как вставить в вордовский документ символы. Но, порой, хочется поделиться своими методами работы или найти мастер-класс по различным вопросам. Есть несколько хороших форумов, в коих можно почерпнуть нужные сведения по той либо иной проблеме, не утонув в море ненужной информации. На портале о Microsoft Office Word вы узнаете про: на каждой странице разные колонтитулы. Если говорить о такой программе, как Microsoft Word, то стоит посетить форум сайта Ворд Эксперт.
Структура форума предполагает три раздела: основной, заказы и общения. Наш сайт о Microsoft Office Word даст ответ про: открыть документ word 2003 онлайн. В основном разделе вы найдете общую информацию, которая касается форума и сайта, там же выложены наиболее часто возникающие вопросы по программе Microsoft Word. Наш сайт о Microsoft Office Word даст ответ про: почему при запуске word или exсel начинается настройка и установка microsoft office. Там же можно обсудить проблемы форматирования и редактирования текста, настроек и совместимостей различных версий. На портале о Microsoft Office Word вы узнаете про: не могу прочитать текст кодировка word. Написать макросы научат в разделе «Автоматизация», а для ленивых или очень занятных существуют «Готовые решения». Наш сайт о Microsoft Office Word даст ответ про: нумерация страниц в ворде 2007 начиная с 4 страницы.
Если в основных разделах форума вам не помогли, то к вашим услугам замечательный раздел «Заявки на разработку». Наш сайт о Microsoft Office Word даст ответ про: вставить рисунки из файлов в папке. Можете заказать шаблон, написание макросов, либо что-то другое. Кстати, вы можете поделиться и своими разработками. На портале о Microsoft Office Word вы узнаете про: как открыть анонимов.
Приятного и плодотворного общения на сайте Ворд Эксперт.