Une petite macro écrite par Geo :

 

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
Selection.TypeText Text:=" {" & T & "}"
Dim MyData As DataObject
Set MyData = New DataObject
MyData.SetText Text:=" {" & T & "}"
MyData.PutInClipboard
End Sub