OVH Cloud OVH Cloud

Effacer des pages

6 réponses
Avatar
Alain
J'aimerai effacer toutes les pages d'un document sauf la première.
Je ne vois pas d'objet "Page" avec une méthode "Delete" ou qutre chose qui
pourrait me convenir.
Avez-vous une idée ?
Merci d'avance, Alain.

6 réponses

Avatar
Jean-Pierre FORESTIER
Bonjour y'a peut être plus simple : tu te mets à la fin de la dernière page
et maintient la souris cliquée et remonte au début de la page 21 enfin tu
appuies sur la touche suppr

--
Jean-Pierre FORESTIER Microsoft MVP PowerPoint
Auteur de PowerPoint 2002 chez Micro Application
"Alain" a écrit dans le message news:

J'aimerai effacer toutes les pages d'un document sauf la première.
Je ne vois pas d'objet "Page" avec une méthode "Delete" ou qutre chose qui
pourrait me convenir.
Avez-vous une idée ?
Merci d'avance, Alain.



Avatar
Alain
Merci pour votre réponse rapide.
Je dois faire cette opération (effacer toutes les pages sauf la première)
dans du code VBA.
Avez-vous une solution à ce niveau ?

Alain.





Bonjour y'a peut être plus simple : tu te mets à la fin de la dernière page
et maintient la souris cliquée et remonte au début de la page 21 enfin tu
appuies sur la touche suppr

--
Jean-Pierre FORESTIER Microsoft MVP PowerPoint
Auteur de PowerPoint 2002 chez Micro Application
"Alain" a écrit dans le message news:

J'aimerai effacer toutes les pages d'un document sauf la première.
Je ne vois pas d'objet "Page" avec une méthode "Delete" ou qutre chose qui
pourrait me convenir.
Avez-vous une idée ?
Merci d'avance, Alain.








Avatar
Alain
J'ai beau chercher, je ne trouve pas de solution.
Je confirme qu'il m'est bien nécessaire de faire cette opération
d'effacement en VBA car c'est une opération qui sera fréquente.
Avez-vous une idée ?

Alain.





Merci pour votre réponse rapide.
Je dois faire cette opération (effacer toutes les pages sauf la première)
dans du code VBA.
Avez-vous une solution à ce niveau ?

Alain.





Bonjour y'a peut être plus simple : tu te mets à la fin de la dernière page
et maintient la souris cliquée et remonte au début de la page 21 enfin tu
appuies sur la touche suppr

--
Jean-Pierre FORESTIER Microsoft MVP PowerPoint
Auteur de PowerPoint 2002 chez Micro Application
"Alain" a écrit dans le message news:

J'aimerai effacer toutes les pages d'un document sauf la première.
Je ne vois pas d'objet "Page" avec une méthode "Delete" ou qutre chose qui
pourrait me convenir.
Avez-vous une idée ?
Merci d'avance, Alain.










Avatar
Geo

J'ai beau chercher, je ne trouve pas de solution.
Je confirme qu'il m'est bien nécessaire de faire cette opération
d'effacement en VBA car c'est une opération qui sera fréquente.
Avez-vous une idée ?

La notion de page dans Word est assez aléatoire car elle dépend de

beaucoup de choses.
En vba cette notion existe depuis la version 2002 il me semble, mais
pas avant.

Plusieurs pistes :
Automatiser la solution de Jean-Pierre en utilisant l'enregistreur de
macros:
Début de document
F8 (mise en mode "extension")
F5 choisir Page et le nombre de pages
Éventuellement un caractère en arrière
Suppr

Il faut ensuite corriger le code généré pour mettre le nombre de pages
du document : ActiveDocument.ComputeStatistics (wdStatisticPages)

ou mieux

il y a un moyen de repérer le début de la dernière page : texte
particulier ou section.
Par exemple si les premières pages sont en section 1 et la dernière en
section 2, une seule ligne :
ActiveDocument.Sections(1).Range.Delete

--
A+

Avatar
Alain
Merci beaucoup.
Avec ça, je devrai pouvoir m'en tirer.
Etrange qu'il n'y ait pas d'objet Page pour tavailler sur une page donnée...

Bonne fin de journée,
Alain.




J'ai beau chercher, je ne trouve pas de solution.
Je confirme qu'il m'est bien nécessaire de faire cette opération
d'effacement en VBA car c'est une opération qui sera fréquente.
Avez-vous une idée ?

La notion de page dans Word est assez aléatoire car elle dépend de

beaucoup de choses.
En vba cette notion existe depuis la version 2002 il me semble, mais
pas avant.

Plusieurs pistes :
Automatiser la solution de Jean-Pierre en utilisant l'enregistreur de
macros:
Début de document
F8 (mise en mode "extension")
F5 choisir Page et le nombre de pages
Éventuellement un caractère en arrière
Suppr

Il faut ensuite corriger le code généré pour mettre le nombre de pages
du document : ActiveDocument.ComputeStatistics (wdStatisticPages)

ou mieux

il y a un moyen de repérer le début de la dernière page : texte
particulier ou section.
Par exemple si les premières pages sont en section 1 et la dernière en
section 2, une seule ligne :
ActiveDocument.Sections(1).Range.Delete

--
A+






Avatar
Circé
Bonjour Alain,

Alain a émis l'idée suivante :
Merci beaucoup.
Avec ça, je devrai pouvoir m'en tirer.
Etrange qu'il n'y ait pas d'objet Page pour tavailler sur une page donnée...


Non, pas étrange... Comme t'a dit Geo, une page Word dépend de beaucoup
de choses et en particulier de l'imprimante déclarée. Donc d'une
machine à l'autre, la notion de page n'est pas forcément la même.

Bonne journée à toi aussi

Circé
http://faqword.free.fr

Bonne fin de journée,
Alain.




J'ai beau chercher, je ne trouve pas de solution.
Je confirme qu'il m'est bien nécessaire de faire cette opération
d'effacement en VBA car c'est une opération qui sera fréquente.
Avez-vous une idée ?

La notion de page dans Word est assez aléatoire car elle dépend de

beaucoup de choses.
En vba cette notion existe depuis la version 2002 il me semble, mais
pas avant.

Plusieurs pistes :
Automatiser la solution de Jean-Pierre en utilisant l'enregistreur de
macros:
Début de document
F8 (mise en mode "extension")
F5 choisir Page et le nombre de pages
Éventuellement un caractère en arrière
Suppr

Il faut ensuite corriger le code généré pour mettre le nombre de pages
du document : ActiveDocument.ComputeStatistics (wdStatisticPages)

ou mieux

il y a un moyen de repérer le début de la dernière page : texte
particulier ou section.
Par exemple si les premières pages sont en section 1 et la dernière en
section 2, une seule ligne :
ActiveDocument.Sections(1).Range.Delete

--
A+