bonjour,
je voudrais faire un pied de page mais je n'y arrive pas.
ce que mon code me donne c'est une note de page en bas.
voici mon code:
merci pour votre assistance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Dim piedpage As Word.Footnote Try 'oTable.Range.InsertParagraphAfter() piedpage = oDoc.Footnotes.Add(oDoc.Bookmarks.Item("\endofdoc").Range) piedpage.Range.Text = "Inspection Générale des Finances, Abidjan Plateau, Boulevard Angoulvant, 19 Clozel à langle, Avenue A58 Docteur" + vbCrLf + _ " Adresse postale : 04 BP 2876 Abidjan 04 Téléphone : 20 22 51 56 / 20 21 60 16 Fax : 20 21 10 80" piedpage.Range.Font.Bold = True piedpage.Range.Font.Italic = True piedpage.Range.Font.Size = 9 Catch End Try
Partager