Bonjour,

Je reviens vers vous pour un autre soucis : il faudrait que je puisse supprimer les pieds de pages d'un document dans certains cas.
Je n'ai pas trouvé la/les commande(s) pour faire ça.
J'ai essayé plusieurs choses:

-Sélectionner la zone "Pied de page" et la supprimer (pour cette solution, je ne sais pas si le problème vient de la 1ère ou de la 2nd ligne) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
MaZone:=wrdDoc.StoryRanges.Item(wdEvenPagesFooterStory );
MaZone.delete;
-Placer un signets dans mon modèle, l'atteindre, et simuler l'appui sur des touches (Ctrl+A, Suppr), mais ça ne fonctionne pas (Pas d'erreur mais rien ne se passe sur le document) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
keybd_event(VK_CONTROL,0,1,0); //Simule l'appui sur Ctrl
keybd_event(65,0,1,0);//Simule l'appui sur A
keybd_event(65,0,2,0);//Simule le relâchement de A
keybd_event(VK_CONTROL,0,2,0);//Simule le relâchement de Ctrl
keybd_event(VK_DELETE,0,1,0);//Simule l'appui sur Suppr
keybd_event(VK_DELETE,0,2,0);//Simule le relâchement de Suppr
En espérant que quelqu'un ait une solution.

TeuZ