Dernière section / Dernière page

Le
jepac
Bonjour,

Je cherche, à l'aide d'une macro, à supprimer la dernière section et/ou
dernière page d'un document.

J'ai écrit la macro suivante mais cela ne fonctionne pas, pouvez-vous
m'aider ?

Selection.GoTo what:=wdGoToSection, which:=wdGoToLast
With Selection
.Sections(1).Range.Delete


Merci pour votre aide
Jean-Paul
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Anacoluthe
Le #1691841
Bonjour !

'jepac' nous a écrit ...
Je cherche, à l'aide d'une macro, à supprimer la dernière section et/ou
dernière page d'un document.
J'ai écrit la macro suivante mais cela ne fonctionne pas, pouvez-vous
m'aider ?
Selection.GoTo what:=wdGoToSection, which:=wdGoToLast
With Selection
.Sections(1).Range.Delete


à part qu'il manque le 'End With' en dernière ligne ça me semble correct

Anacoluthe
« La vraie question est : pourquoi sélectionner ?
Et je ne connais pas la réponse. »
- Albert JACQUARD

Geo
Le #1691839

Bonjour,

Je cherche, à l'aide d'une macro, à supprimer la dernière section et/ou
dernière page d'un document.

J'ai écrit la macro suivante mais cela ne fonctionne pas, pouvez-vous
m'aider ?

Selection.GoTo what:=wdGoToSection, which:=wdGoToLast
With Selection
.Sections(1).Range.Delete


La dernière section a pour numéro ActiveDocument.sections.count
Donc
ActiveDocument.sections(ActiveDocument.sections.count).range.delete

--
A+

jepac
Le #1702426
Merci



Bonjour,

Je cherche, à l'aide d'une macro, à supprimer la dernière section et/ou
dernière page d'un document.

J'ai écrit la macro suivante mais cela ne fonctionne pas, pouvez-vous
m'aider ?

Selection.GoTo what:=wdGoToSection, which:=wdGoToLast
With Selection
.Sections(1).Range.Delete


La dernière section a pour numéro ActiveDocument.sections.count
Donc
ActiveDocument.sections(ActiveDocument.sections.count).range.delete

--
A+






Publicité
Poster une réponse
Anonyme