Bienvenue 

sur les faqs Word & PowerPoint

Une question ? Cliquez ici.

 Un exemple à télécharger ? Cliquez ici.

 

Word 365 : Vous saurez tout !

Auteur sur XinXii

Pour tout connaître sur Word

8,90 €

 

 Il n'est pas nécessaire d'avoir plusieurs versions du fichier. Il suffit simplement de prévoir le filigrane,
et d'utiliser la macro suivante pour l'impression.
Cette macro va masquer le filigrane pour une première impresssion.
Cette macro est inspirée de celle de Geo qui permet d'imprimer sans le pied de page.

Sub duplicata()
' macro écrite par marina
Options.PrintHiddenText = False

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HomeKey Unit:=wdStory
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
'met l'en-tête en format masqué
With Selection.Font
.Hidden = True
End With
'imprime le fichier sans en-tête
ActiveDocument.PrintOut
'Remettre l'entête en "mode visible"
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HomeKey Unit:=wdStory
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
With Selection.Font
.Hidden = False
End With
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
ActiveDocument.PrintOut copies:=2
End Sub

 

C'est une solution simple, car l'utilisateur peut modifier le filigrane comme il le voudra, la macro restera toujours valable. Par contre, si le document contient un "véritable" en-tête en plus du filigrane, cette solution ne convient pas car l'entête serait également supprimé sur le document original.

Il faudrait donc créer une macro qui insère le filigrane et le retire. Seulement, ce n'est pas si simple car le filigrane n'est rien d'autre qu'une image à construire, avec toutes ses propriétés de couleur, d'orientation, de transparence, de placement, etc. Et si vous souhaitez modifier ce filigrane, ce serait compliqué.

La solution serait donc de créer soi-même une insertion automatique d'un filigrane, et la macro irait chercher simplement cette insertion automatique. Donc,

  • Créez votre filigrane
  • Passez en affichage d'en-tête et sélectionnez le filigrane
  • Créez l'insertion automatique ou le Quickpart ; sélectionnez l'image filigrane puis : 

  • Vous pouvez sortir de l'en-tête

Voici donc la macro qui imprimera le document en un exemplaire sans filigrane puis en deux exemplaires avec filigrane :


 

Statistiques

Aujourd'hui743
Hier2224
Cette semaine13381
Ce mois31461
Total depuis 200410766869

16
visiteurs actuellement en ligne