2010-08-17 82 views

回答

2

你可以试试这个:

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