Bonjour à tous,

Voilà, je dois modifier le header et footer de +ou- 700 documents.

Je réussi à faire le copier (d'un modèle) et le coller sur mes documents mais le problème c'est que la mise en page est modifié, j'ai bien les images, les couleurs du texte, juste l'alignement du texte n'est pas "coller"

Voici mon code pour le header:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Public Sub updateHeader(pathDoc As String)
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim WordTemplate As Word.Document
 
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open(pathDoc)
Set WordTemplate = WordApp.Documents.Open("templateHeaderSpeed.doc")
WordApp.Visible = True
WordDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Delete 'J'ai rajouté cette ligne en pensant que si je supprimait l'ancien header, cela marcherai ;)
 
WordTemplate.Sections(1).Headers(wdHeaderFooterPrimary).Range.Copy
WordDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Paste
 
End Sub
Quelqu'un aurais une idée ?

Et ma deuxième question: je dois aussi modifier le footer, la différence est que je dois concerver le texte et ajouter un logo.

Une piste ?

Merci,