coucou all
j'ai un collègue qui a un petit problème avec du vba, si vous pouviez nous aider ca serait sympa
On aimerait remplacer un bout de texte dans un document Word par un champ (Nom de l'auteur).
On arrive sans autre a remplacer le texte par un autre texte, mais pas avec un champ.
Voilà le code pour remplacer le texte par un autre texte:
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "%FIELD_pFrmPropProjectName%" 'Texte à remplacer
.Replacement.Text = "<doc_name>" 'Remplacer par ce texte
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
Merci d'avance