OLE Word : Gestion des pieds de page

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:

---

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:

---

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

Bonjour,

je sais activer le pied de page et détruire le premier caractère :

Code:

---

1 2 3 4 5 6 7

// wrdApp : instance de Word // activation du pied de page wrdApp.ActiveWindow.ActivePane.View.SeekView := 10 ; // Destruction du premier caractère wrdApp.Selection.Delete ; // Retour au corps du document wrdApp.ActiveWindow.ActivePane.View.SeekView := 0 ;

---

si tu sais sélectionner un paragraphe et le détruire, ça m'intéresse ...

A+

Charly

Bonjour,

Merci Charly pour ce début de réponse, même si j'ai renoncé a cette idée pour le moment, et j'utilise une zone de texte ... certes c'est pas forcement propre, mais c'est tout ce que j'ai pour le moment.

Si je trouve un truc pour la sélection d'un paragraphe je te tiens au courant avec plaisir.