Recherche

 

Voici une macro qui masque le pied de page pour l'impression puis le rétablit ensuite.

Cela est très pratique lorsqu'on a des pieds de page en couleurs, et qu'on souhaite imprimer des brouillons plus rapidement et sans gâcher trop d'encre ou de toner.

 

Sub PiedDePageMasque()
' macro écrite par Geo
' Passer momentanément le Pied de Page en texte masqué.
'-- Entrer dans le pied de page
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
'-- Mettre le curseur en début de ligne
Selection.HomeKey Unit:=wdStory
'-- Sélectionner le pied de page
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
'-- Activer le mode texte caché
With Selection.Font
.Hidden = True
End With
'-- Revenir dans le document
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
'-- L'imprimer
ActiveDocument.PrintOut
'-- Remettre le pied de page en "mode visible"
'-- Voir plus haut pour les remarques.
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Selection.HomeKey Unit:=wdStory
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
With Selection.Font
.Hidden = False
End With
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

 

 

Statistiques

France 76,0% France
Canada 7,9% Canada
États-Unis d'Amérique 4,7% États-Unis d'Amérique

Total:

66

Pays
018274369
Aujourd'hui: 9
Hier: 145
Cette semaine: 692
Semaine dernière: 783
Ce mois: 2.631