Identify/change a field with formula within MS Word

Question

I have a word document, which contains some fields in the header and some in the text. The field in the header can be changed by:

Dim oHF As HeaderFooter