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

Aujourd'hui152
Hier2249
Cette semaine12988
Total depuis 20049625246

1
visiteurs actuellement en ligne