Sub pieddepage()
'macro écrite par m@rina
ActiveWindow.ActivePane.View.SeekView =
wdSeekCurrentPageFooter
With Selection.HeaderFooter.Range
.Text = ""
.Fields.Add Range:=Selection.Range,
Type:=wdFieldEmpty,
Text:="FILENAMEÂ p"
End With
ActiveWindow.ActivePane.View.SeekView =
wdSeekMainDocument
ActiveDocument.save
End Sub
-
A quoi sert l'ancre qui s'affiche quelquefois dans la marge gauche ?
-
Mon clavier perso ou comment personnaliser son clavier
-
Comment créer un bouton qui envoie le fichier en cours ?
-
Comment générer du faux texte ?
-
Comment faire pour qu'une macro démarre toute seule ?
-
Bonjour les Quickparts, adieu les Insertions Auto !
-
PowerPoint et les fichiers MP3
-
L'espace fine existe-t-elle dans Word ?
-
Comment insérer une image en fond de page?
-
Comment attacher un modèle à un document ?
-
Accentuer les majuscules
Articles récents
- Les quickparts personnalisés ne fonctionnent pas dans une macro
- Quels sont les commutateurs de démarrage de Word ?
- Quels sont les commutateurs de démarrage de PowerPoint ?
- Quelle différence entre Building blocks.dot et Built-in building blocks.dot ?
- Comment graver un diaporama sur CD et ne pas perdre les liens avec les fichiers annexes ?
Nouveau sondage !
Les forums - Outlook ?
Statistiques
| Aujourd'hui | 296 |
| Hier | 2328 |
| Cette semaine | 4666 |
| Ce mois-ci | 12838 |
| Depuis janvier 2004 | 2861952 |
- Compteur d'affichages des articles
- 5540895
A lire de toute urgence...
Qui est en ligne ?
Nous avons 71 invités et aucun membre en ligne