Bonjour,

Via ole, je doit modifier du texte d'un fichier word.

En utilisant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
vMSWord.Selection.Find.ClearFormatting;
  vMSWord.Selection.Find.Replacement.ClearFormatting;
  vMSWord.Selection.Find.Text := oldtext;
  vMSWord.Selection.Find.Replacement.Text := NewText;
  vMSWord.Selection.Find.Forward := True;
  vMSWord.Selection.Find.Wrap := wdFindContinue;
  vMSWord.Selection.Find.Format := False;
  vMSWord.Selection.Find.MatchCase := False;
  vMSWord.Selection.Find.MatchWholeWord := False;
  vMSWord.Selection.Find.MatchWildcards := False;
  vMSWord.Selection.Find.MatchSoundsLike := False;
  vMSWord.Selection.Find.MatchAllWordForms := False;
  vMSWord.Selection.Find.Execute(Replace := wdReplaceAll);
Le code remplace bien les "oldtext" trouvés dans le document, sauf dans les en-têtes, et je ne vois pas pourquoi.

Merci