user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

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'hui790
Hier2161
Cette semaine7911
Ce mois51930
Total depuis 200413860089

19
visiteurs actuellement en ligne

26 mai 2022