Dim Obj As Range
    Set Obj = ActiveDocument.Range(Start:=0, End:=0)
    Obj.Text = ActiveDocument.Fields(1).Result.Text
    Obj.Cut
    ActiveDocument.Fields(1).Delete
    Obj.Paste

Не получается только вставить Range на то место где был Field. Подскажите плз как сделать.

set ran = .result

txt=.result.text

.delete

end with

ran.text=txt