Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1246 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Word - Macro - Enregistrement auto pied de page

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Word - Macro - Enregistrement auto pied de page

n°1331406
didieraucu​n
Posté le 23-03-2006 à 23:11:45  profilanswer
 

Bonsoir à tous,
j'ai trouvé un exemple de la macro suivante que je trouvais très intéressante.
Malheureusement quand je l'exécute il y a une erreur.  :??:  
Pourriez vous m'aider à trouver cette erreur de programmation ?
je ne sais pas si c'est à cause des sauts de ligne   :(  
 
J'ai besoin d'une macro qui insère directement le nom du fichier et le chemin complet en pied de page tout en sauvegardant mon fichier. Si un autre pied de page existe, je veux qu'il soit remplacé.

 
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  
 
http://img463.imageshack.us/img463/8880/clipboard15fa.jpg

mood
Publicité
Posté le 23-03-2006 à 23:11:45  profilanswer
 

n°1331463
Epena
Posté le 24-03-2006 à 07:47:24  profilanswer
 

Bonjour,  
Il ne faut pas oublier de mettre le caractere _ avant de mettre une meme instruction sur deux lignes
Par exemple :

ActiveWindow.ActivePane.View.SeekView = _
wdSeekCurrentPageFooter


Sub PiedDePage()
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
With Selection.HeaderFooter.Range
    .text = ""
    .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, text:="FILENAME \p ", _
     PreserveFormatting:=True   'text:="NOMFICHIER \p "en word97  
End With
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
ActiveDocument.Save
End Sub


Cordialement
Epéna
 

n°1331983
didieraucu​n
Posté le 24-03-2006 à 21:03:50  profilanswer
 

Ca marche !  :)  
Merci beaucoup [:and garfunkel]


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Word - Macro - Enregistrement auto pied de page

 

Sujets relatifs
comment mettre plusieurs menu js sur la même page[lazarus] créer un lien vers une page web
Ouverture d'un fichier Excel avec un XML et lancement d'une macroLiaison Word/Page Web
Qui peut me faire une page de redirection?[CSS]CSS et mise en page pour impression
Afficher les données d'une BDD dans une page JSP[PHP-MySQL] Fonction CONCAT_WS() dans une page
AJAX et ph de chargement de JS ds une page 
Plus de sujets relatifs à : Word - Macro - Enregistrement auto pied de page


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR