Discussion :

[keunene]

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:

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 à l’angle, 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

merci pour votre assistance

[keunene]

Merci à tous.j'ai fait des recherches sur le site de microsoft et j'ai trouvé une réponse.
pour que ce code fonctionne, il faut d'abord aller dans le menu de visual studio(moi j'ai le 12) - projet- ajouter une reférence- une sorte de menu contextuel s'ouvre ;appuyez sur COM et cochez " MIcrosoft word 12.0 object library" (pour certains le 12.0 peut être 14.0 ou autre.je l'ai même testé avec word 2007 ça marche parfaitement maispas proprement avec WORD 2010

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Imports Word = Microsoft.Office.Interop.Word

Public Class historic
   


    'note
    Private Sub PublipostageNoteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PublipostageNoteToolStripMenuItem.Click
        Dim oWord As Word.Application
        Dim oDoc As Word.Document

        Dim oPara1 As Word.Paragraph, oPara2 As Word.Paragraph
        

        'Start Word and open the document template.
        oWord = CreateObject("Word.Application")
        oWord.Visible = True
        oDoc = oWord.Documents.Add
        Try
            'Insertion de paragraphes.
            oPara1 = oDoc.Content.Paragraphs.Add
            oPara1.Range.Text = "MINISTERE AUPRES DU PREMIER MINISTRE "
            oPara1.Range.Font.Bold = True
            oPara1.Format.SpaceAfter = 2    '4 pt spacing after paragraph.
            oPara1.Range.InsertParagraphAfter()

            pied de page
        Try
            oDoc.Sections(1).PageSetup.DifferentFirstPageHeaderFooter = True
'ce Footers en gras vous pouvez le changer en Headers et il de vient un haut de page
            With oDoc.Sections(1).Footers(Word.WdHeaderFooterIndex.wdHeaderFooterFirstPage).Range

                .Text = "         Inspection Générale des Finances, Abidjan Plateau, Boulevard Angoulvant, 19 Clozel à l’angle, 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"
                .ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                .Font.Size = 9

                .InlineShapes.AddHorizontalLineStandard()
            End With

        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try



    End Sub
   
End Class

pour les notes de pages vous pouvez voir le premier post en haut