Via 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)
= Replace(Champ.Code.Text, Chr(19), "{")
= 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

Statistiques

Aujourd'hui731
Hier2033
Cette semaine6632
Total depuis 20049834064

18
visiteurs actuellement en ligne