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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°1589955
jpcheck
Pioupiou
Posté le 23-07-2007 à 10:21:03  profilanswer
 

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

mood
Publicité
Posté le 23-07-2007 à 10:21:03  profilanswer
 

n°1590067
dante4024
Posté le 23-07-2007 à 12:59:48  profilanswer
 

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 ^^

n°1590151
jpcheck
Pioupiou
Posté le 23-07-2007 à 14:04:57  profilanswer
 

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


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

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

 

Sujets relatifs
[VBA] Cours/Ressource VBA "correcte", ca existe ?[VBA] Monter Descendre ListBox
VBA [Résolu] Passer une fonction en paramètreredirection sans charger le reste de la page
Exporter données dans une page htmlVBA [Résolu] Placer du texte obtenu par VBA dans un formulaire Outlook
[VBA] Probleme de requetemise en page à l'aide de div
résolu[Résolu] Personalisé la page "Index of/"
Plus de sujets relatifs à : [VBA] Word, En tête différent pour chaque page


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