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'hui196
Hier2369
Cette semaine2565
Ce mois45225
Total depuis 200413076152

2
visiteurs actuellement en ligne

22 juin 2021