user_mobilelogo

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)
= Replace(Champ.Code.Text, Chr(19), "{")
= Replace(T, Chr(21), "}")
Champ.Select
Selection.Collapse wdCollapseEnd
Debug.Print (" {" & T & "}")
End Sub

Statistiques

Aujourd'hui28
Hier1788
Cette semaine10386
Ce mois12426
Total depuis 200412310018

6
visiteurs actuellement en ligne

8 août 2020