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'hui74
Hier2753
Cette semaine8062
Total depuis 20049620320

7
visiteurs actuellement en ligne