Вопрос. Объект поле со списком

[Greenfield]

Доброго дня!
Прошу помочь разобрать в след. вопросе: есть шаблон документа Word. На шаблоне размещена компонента поле со списком.
Необходимо в теле макроса получить значение, которые выбрано а данный момент в этот объекте. Как это сделать ?
Спасибо

[viter.alex]

Какой из трёх видов списка вас интересует?

[Greenfield]

Интересует третий

[viter.alex]

Попробуйте функцию для получения комбобокса из активного документа по имени и типу:

Function GetCombo(sName As String, Optional IsInline As Boolean = True) As MSForms.ComboBox
  Dim oShp As Shape
  Dim oInShp As InlineShape
  If IsInline Then
    For Each oInShp In ActiveDocument.InlineShapes
      If oInShp.Type = wdInlineShapeOLEControlObject Then
        If oInShp.OLEFormat.ClassType = "Forms.ComboBox.1" And oInShp.OLEFormat.Object.Name = sName Then
          Set GetCombo = oInShp.OLEFormat.Object
          Exit For
        End If
      End If
    Next
  Else
    For Each oShp In ActiveDocument.Shapes
      If oShp.Type = msoOLEControlObject Then
        If oShp.OLEFormat.ClassType = "Forms.ComboBox.1" And oShp.OLEFormat.Object.Name = sName Then
          Set GetCombo = oShp.OLEFormat.Object
          Exit For
        End If
      End If
    Next
  End If
End Function

и пример использования функции

Sub Test()
  Dim cmb As MSForms.ComboBox
  Set cmb = GetCombo("ComboBox1", False)
  If Not cmb Is Nothing Then
    MsgBox cmb.Text
  Else
    MsgBox "Элемент управления не найден"
  End If
End Sub

Если ругается на MSForms, тогда в Tools→References… нужно подключить Microsoft Visual Basic for Applications Extensibility