Word - Macro - Enregistrement auto pied de page

Word - Macro - Enregistrement auto pied de page - VB/VBA/VBS - Programmation

Marsh Posté le 23-03-2006 à 23:11:45    

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

Reply

Marsh Posté le 23-03-2006 à 23:11:45   

Reply

Marsh Posté le 24-03-2006 à 07:47:24    

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
 

Reply

Marsh Posté le 24-03-2006 à 21:03:50    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed