Via une petite macro écrite par Geo. Vous récupérerez le texte du champ dans la fenêtre Exécution de Visual Basic.

Public Sub Champ_ChampVersTexte()
'écrite par Geo
Dim T As String
Dim Champ As Field
If Selection.Fields.Count = 0 Then
  MsgBox "Sélectionner un champ " & vbCrLf &  " et relancer la commande.", vbCritical, "Erreur"
  Exit Sub
End If
Selection.Fields(1).Select
Set Champ = Selection.Fields(1)
T = Replace(Champ.Code.Text, Chr(19), "{")
T = Replace(T, Chr(21), "}")
Champ.Select
Selection.Collapse wdCollapseEnd
Debug.Print (" {" & T & "}")
End Sub