Re : Macro pied de page
Bjr Staple 1600
Le paracetamol ne marche pas !!! c'est quand j'arrete que ça fait du bien !
Bon! je suis arrivé à dénicher des morceaux de code qui bout à bout remplissent à peu près mes attentes.
Sauf, (he oui il y a un !) que je n'arrive pas à mettre un logo (en format .jpg) et du texte. Soit l'un ou l'autre, mais pas les deux en même temps.
Je joints le code, si tu as une idée ?
Attention j'ai laissé qqlques lignes qui ne marchent pas encore (msgbox, & goto fin), je verai plus tard.
merci, A+
Sub AjouterPiedDePage()
Dim section As Word.section
Dim reponse
'reponse = MsgBox("Modifier le pied de page avec la nouvelle adresse du siège social ?", "Modification du pied de page", vbYesNo)
'If reponse = vbNo Then GoTo fin
For Each section In Application.ActiveDocument.Sections
With section.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary)
.Range.Font.ColorIndex = Word.WdColorIndex.wdBlack
'.Shapes.AddPicture FileName:="MON LOGO.jpg", LinkToFile:=False, SaveWithDocument:=True
.Range.Font.Name = "Times New Roman"
.Range.Font.Size = 8
.Range.Text = "MON PIED DE PAGE"
.Range.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
End With
Next
'fin:
End Sub