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:
Quelqu'un aurais une idée ?
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
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,
Partager