Comment faire apparaitre une note à l'ouverture d'un fichier wor d

Je souhaite faire apparaître automatiquement une note à l'ouverture d'un
fichier WORD, pour rappeler par exemple qu'il faut utiliser du papier à
entête...
Merci de votre aide

Une petite macro :-)
mais il y a plusieurs solutions selon que ça doit s'appliquer à un type
de document particulier ou à tous les documents.
En gros : une macro AutoOpen peut afficher un message lors de
l'ouverture du fichier.
mais on pourrait aussi faire afficher un message à l'impression, donc
au bon moment, là il faut utiliser un événement.


--
A+

Je souhaite faire apparaître automatiquement une note à l'ouverture d'un
fichier WORD, pour rappeler par exemple qu'il faut utiliser du papier à
entête...
Merci de votre aide

Une petite macro :-)
mais il y a plusieurs solutions selon que ça doit s'appliquer à un type
de document particulier ou à tous les documents.
En gros : une macro AutoOpen peut afficher un message lors de
l'ouverture du fichier.
mais on pourrait aussi faire afficher un message à l'impression, donc
au bon moment, là il faut utiliser un événement.

bonjour,

Un peu archaïque, mais qui marche : taper l'anti-sèche en caractères cachés,
ça marche toujours !!!

--
A+

Geo was telling us:
Geo nous racontait que :

Je souhaite faire apparaître automatiquement une note à l'ouverture
d'un fichier WORD, pour rappeler par exemple qu'il faut utiliser du
papier à entête...
Merci de votre aide

Une petite macro :-)
mais il y a plusieurs solutions selon que ça doit s'appliquer à un
type de document particulier ou à tous les documents.
En gros : une macro AutoOpen peut afficher un message lors de
l'ouverture du fichier.
mais on pourrait aussi faire afficher un message à l'impression, donc
au bon moment, là il faut utiliser un événement.

Pas nécessairement ;-)

'_______________________________________
Sub FilePrint()
'Pour capter Fichier > Impression ou CTRL-P

AfficherTexte
Dialogs(wdDialogFilePrint).Show

End Sub
'_______________________________________

'_______________________________________
Sub FilePrintDefault()
'Pour capter le bouton "Imprimante"
'de la barre d'outils Standard

AfficherTexte
ActiveDocument.PrintOut

End Sub
'_______________________________________

'_______________________________________
Sub AfficherTexte()

MsgBox "Il faut utiliser du papier orange à pois mauve!", _
vbInformation, "Papier spécial requis"

'Et autre code qu'on veut avant impression
'On pourrait transformer cette Sub en Function et retourner
'une valeur à la Sub qui appelle la fonction pour permettre
'ou annuler l'impression.

End Sub
'_______________________________________

Évidemment, si la sécurité est à "Maximum", rien ne fonctionnera!

--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org