Getting the number of REF fields

[Chris]

I need a count of the cross-references in a (big) document.
ActiveDocument.Fields.Count tells me how many fields of any kind there
are, but I don't see how to narrow it to just REFs. Anyone know how to
get this?

 

[Jay Freedman]

I need a count of the cross-references in a (big) document.
ActiveDocument.Fields.Count tells me how many fields of any kind there
are, but I don't see how to narrow it to just REFs. Anyone know how to
get this?

Sub CountRefs()
Dim counter As Long
Dim fld As Field
For Each fld In ActiveDocument.Fields
If fld.Type = wdFieldRef Then
counter = counter + 1
End If
Next

MsgBox "There are " & counter & " REF fields"
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.