Boucle dans une macro word
causek
-
16 mars 2016 à 15:06
m@rina Messages postés 22601 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 16 mai 2025 - 18 mars 2016 à 02:50
m@rina Messages postés 22601 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 16 mai 2025 - 18 mars 2016 à 02:50
A voir également:
- Boucle dans une macro word
- Word 2013 - Télécharger - Traitement de texte
- Supprimer une page dans word - Guide
- Espace insécable word - Guide
- Tableau word - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
1 réponse
m@rina
Messages postés
22601
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
16 mai 2025
11 432
17 mars 2016 à 01:57
17 mars 2016 à 01:57
Bonjour,
Et si tu nous disais exactement ce que tu veux faire ? et nous donner le code que tu as écrit par la même occasion...
m@rina
Et si tu nous disais exactement ce que tu veux faire ? et nous donner le code que tu as écrit par la même occasion...
m@rina
17 mars 2016 à 09:53
Voici le bout de code:
(Suis en Word 2010)
Sub Macro3()
'
' Macro3 Macro
'
'
Pagnr = Selection.Information(wdActiveEndPageNumber)
TotPages = Selection.Information(wdNumberOfPagesInDocument)
Do While Pagnr <= lastpage
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter. _
LinkToPrevious
ActiveWindow.ActivePane.View.NextHeaderFooter
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Loop
End Sub
Vous remerciant,
18 mars 2016 à 02:50
Parce que déjà les en-têtes fonctionnent par section et non pas par page.
Peux tu être plus précis sur la finalité de la macro ?