Bienvenue 

sur les faqs Word & PowerPoint

Une question ? Cliquez ici.

 Un exemple à télécharger ? Cliquez ici.

 

Word 365 : Vous saurez tout !

Auteur sur XinXii

Pour tout connaître sur Word

8,90 €

 

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 & _<br>  " 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 & "}"
SetClipboard (" {" & T & "}")
End Sub

Statistiques

Aujourd'hui1465
Hier1383
Cette semaine1465
Ce mois34728
Total depuis 200410770136

51
visiteurs actuellement en ligne