Hi Daniel, try this:

Sub RemoveCaptionFields()
ActiveDocument.Fields.Unlink
End Sub

Regards.
Ailton