获取隐藏字段的VBA代码

Question

任何人都可以帮我写一个从代码2007文件中获取隐藏字段值的宏代码吗？

Answer 1

你可以试试这个：

Sub mySub()
Dim f As Variant

For Each f In ActiveDocument.Fields
    f.Select
    If Selection.Font.Hidden = True Then
        MsgBox "Field is hidden"
    End If
Next
End Sub