Discussion :

[TeuZ63]

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

[Charly910]

Bonjour,

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

Code :

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

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

[TeuZ63]

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.