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

t'as toujours pas essayé avec des signets ?

 
voili voilou !