Discussion :

[richard038]

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

[muquet]

avant d'ecrire quelque part, il faut preciser ou avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 const
  wdCorpsDeDoc = 0;
  wdPiedDePage = 10;
  wdEnTete = 9;

TextPosition prend une valeut des constantes, puis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WordApp.ActiveWindow.ActivePane.View.SeekView := TextPosition;

comme ca, tu peux naviguer entre entete, enpied et cops du texte

a+
bw

[richard038]

Bonjour,

Merci.
Il n'y a pas une valeur pour sélectionner tous les éléments.

[muquet]

Je n'en connais pas (mais ca, ca ne veux pas dire grand choses LOL )
Ceci dit, sous MSWord, je ne connais pas de fonction qui remplace tout (corps, netete et enpied de texte) donc je ne pense pas que ce soit directement possible.

BWE

[Laurent Dardenne]

Salut,
as-tu regardé dans la FAQ ? Je crois qu'il y a un exemple code à ce sujet.