[VBA] Word, En tête différent pour chaque page

Word, En tête différent pour chaque page [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 23-07-2007 à 10:21:03    

Bonjour tout le monde,
 
je suis en ce moment sur un module de concaténation de documents word, mais j'ai un soucis sur l'aspect finission.
 
Lorsque je copie mes documents, les entêtes disparaissent ou sont écrasés (?) par le premier document de la compilation.
 
Est-il possible de gérer (un par un) ses entêtes pour garder la mise en forme d'origine ?
 
Merci d'avance.
 
JP

Reply

Marsh Posté le 23-07-2007 à 10:21:03   

Reply

Marsh Posté le 23-07-2007 à 12:59:48    

Pour obtenir des en-tetes différents par page, il faut faire des sections. Dans ton cas, inserer une section pour chaque nouveau document concaténé, pour conserver les en-tetes et pieds de page qui vont bien.
 
Au niveau de la macro, je sais pas comment ca va réagir si un de tes documents Word contient déjà des sections. A priori, bien, mais faudrait vérifier ^^

Reply

Marsh Posté le 23-07-2007 à 14:04:57    

oki, pour info voila le bout de code qui tourne actuellement.
 
après une requete de récupération de path des fichiers à concaténer :
 

Code :
  1. Set RS = db.OpenRecordset(ReqSQL)
  2.         If Mid(RS!sPath, Len(RS!sPath) - 3, 4) = ".doc" And Dir(RS!sPath) <> "" Then
  3.             Documents.Open (RS!sPath)
  4.             Selection.WholeStory
  5.             Selection.Copy
  6.             cpteur = cpteur + Selection.Sections.Count
  7.             Documents(temp).Activate
  8.     'ajout d'un saut de page
  9.             Selection.Collapse Direction:=wdCollapseEnd
  10.             Selection.InsertBreak wdPageBreak
  11.             Selection.Paste
  12.             Documents(RS!sPath).Close False
  13.             Documents(temp).Select
  14.             Selection.EndKey wdStory
  15.             Selection.Sections.Add
  16.         End If

Reply

Sujets relatifs:

Leave a Replay

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