ouvrir word et ajouter un pied de page

Question

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:

Dim piedpage As Word.FootnoteTry             '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

ucfoutu · Answer

Bonjour,

1) Sais-tu le faire depuis Word/VBA directement ? (car à savoir avant même de tenter de le faire en "pilotage"). Si non : question à poser dans la section VBA, mais après avoir lu ceci :
http://msdn.microsoft.com/en-us/library/office/ff838736%28v=office.15%29.aspx

2) on ne voit même pas où et comment tu as créé l'objet odoc

keunene · Answer

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 " [B][I][U]MIcrosoft word 12.0 object library/U/I/B" (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
Imports Word = Microsoft.Office.Interop.WordPublic 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).[B]Footers/B(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

cs_ShayW · Answer

Bonjour
Comme avait dit Ucfoutu 
2) on ne voit même pas où et comment tu as créé l'objet odoc

Ouvrir word et ajouter un pied de page

3 réponses

Votre réponse