Sub UnlinkFieldsCensus()
Dim Rng As Range, bHid As Boolean
Set Rng = Selection.Paragraphs(1).Range
With ActiveDocument
  .Unprotect
  Rng.Fields.Unlink
  With .Bookmarks
    bHid = .ShowHidden
    .ShowHidden = True
    While .Count > 0
      .Item(1).Delete
    Wend
    .ShowHidden = bHid
  End With
End With
End Sub