Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Anacoluthe
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
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
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
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+
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
