Signet formulaire word non repris en Excel

Bonjour,

j'ai un petit souci de reprise de données d'un document formulaire word .

j'ai créé un formulaire avec différents champs dont certains sont des listes déroulantes.

j'ai appliqué la macro suivante sous excel:

Sub wordsignet()
'Macro écrite par Pierre CFI
Dim wrd As Object
Dim i As Integer, aBookmark
Set wrd = CreateObject("Word.Application")
wrd.Documents.Open Filename:="C:\TEMP\EPVS.doc"
'// pas obliger de voir
'wrd.Visible = True
If wrd.ActiveDocument.Bookmarks.Count >= 1 Then
For Each aBookmark In wrd.ActiveDocument.Bookmarks
Worksheets("Feuil1").Range("a1").Offset(i, 0) = aBookmark.Name
Worksheets("Feuil1").Range("a1").Offset(i, 1) = aBookmark.Range
i = i + 1
Next aBookmark
End If
wrd.Quit
Set wrd = Nothing
End Sub

cependant les signets pour lesquels il s'agit d'une liste déroulante la valeur du champ est nulle.

comment reprendre les valeurs d'une liste déroulante ?

merci pour votre aide