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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] Word, En tête différent pour chaque page

jpcheck

Pioupiou

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

Publicité

dante4024

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

jpcheck

Pioupiou

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 :

Set RS = db.OpenRecordset(ReqSQL)
If Mid(RS!sPath, Len(RS!sPath) - 3, 4) = ".doc" And Dir(RS!sPath) <> "" Then
Documents.Open (RS!sPath)
Selection.WholeStory
Selection.Copy
cpteur = cpteur + Selection.Sections.Count
Documents(temp).Activate
'ajout d'un saut de page
Selection.Collapse Direction:=wdCollapseEnd
Selection.InsertBreak wdPageBreak
Selection.Paste
Documents(RS!sPath).Close False
Documents(temp).Select
Selection.EndKey wdStory
Selection.Sections.Add
End If

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ètre	redirection sans charger le reste de la page
Exporter données dans une page html	VBA [Résolu] Placer du texte obtenu par VBA dans un formulaire Outlook
[VBA] Probleme de requete	mise 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

Page générée en 0.056 secondes