Headerfooter et fonction de remplacement
Bonjour,
Encore moi.
Je cherche aujourd'hui un moyen de modifier une petite fonction qui permet le remplacement d'une chaîne par une autre dans un fichier word.
En fait elle fait son effet, elle me permet de remplacer des chaines et de les mettre en forme de façon à les rendre visible, les détacher au regard. Mais j'ai le petit soucis persistant, j'aimerais qu'il modifie TOUTE les chaines demandé, quelques soit leurs positions, j'ai le petit hic sur les headers et footers, qui sont tout de même primordiaux.
J'ai cherché plusieurs moyens pour sélectionner les parties concerné :
Code:
1 2 3 4 5 6 7 8 9 10
| For Each section In oWord.sections
For Each h In section.headers
h.range.select()
...
Next
For Each h In section.footers
h.range.select()
...
Next
Next |
ou encore
Code:
1 2 3 4 5 6 7
| For Each section In oWord.sections
section.headers.range.select()
...
section.footers.range.select()
...
Next
Next |
Ça ne m'affiche que dalle, pas d'erreur, pas de première alerte au débug, rien du tout, et surtout ça marche pas ^^
...
...
...
2014 commence difficilement. J'avais pas du tout tord, j'ai juste un neurone qui a oublié de s'allumer, ça fait deux jours que je suis là dessus :/
Solution :
Code:
1 2 3 4 5 6 7 8 9 10
| For Each section In doc.sections
For Each h In section.headers
h.range.select()
...
Next
For Each h In section.footers
h.range.select()
...
Next
Next |