Modifier une en-tête d'un doc Word depuis une macro ExcelRésolu

Question

Bonjour à tous,

j'aurais besoin de savoir s'il est possible de modifier le contenu d'un en-tête de document Word via une macro Excel, et si oui, comment ?
J'arrive, depuis cette macro, à ouvrir le document concerné, à modifier le contenu principal du document, mais dès que la macro doit modifier le contenu de l'en-tête (comme remplacer un mot par un autre, par exemple), c'est la panique !
J'ai essayé plusieurs méthodes, un peu à tatons, mais rien n'y fait... Est-ce que quelqu'un a la solution, svp ?...

Merci d'avance !

michelxld · Accepted Answer

bonsoir

tu peux essayer

Sub EnteteEtPiedDePageWord()
'necessite d'activer la reference microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim Fichier As String

Fichier = "C:\Documents and Settings\michel\Doc2.doc" 'adapterle chemin
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open(Fichier)

With WordDoc.Sections(1)
.Headers(wdHeaderFooterPrimary).Range.Text = "Le titre"
.Headers(wdHeaderFooterPrimary).Range.Paragraphs.Alignment = wdAlignParagraphCenter
.Footers(wdHeaderFooterPrimary).PageNumbers.Add
End With

End Sub

bonne soiree
michel

poolipoo · Answer

Merci Michel, je vais essayer dès que possible. Je te tiens au courant !

poolipoo · Answer

Ca y est ça marche ! J'ai essayé comme tu m'as dit et tout fonctionne. Encore merci, tu as sauvé le reste de mes cheveux que je n'avais pas encore arraché :-)

Modifier une en-tête d'un doc Word depuis une macro Excel

3 réponses

Discussions similaires