怎么提取下拉型窗体域，复选框型窗体域的内容？

[bigbear2046]

下面的代码对于下拉型窗体域，复选框型窗体域显示为空（点击保护窗体再运行，显示方法无效，涉及保护区域）该怎么提取下拉型窗体域，复选框型窗体域的内容呢？
a = ActiveDocument.Fields.Count
For i = 1 To a
MsgBox ActiveDocument.Fields(i).Result
Next i

[klbt]

关注，帮你顶。