A voir également:
- Vb.net word
- Vb.net word document - Meilleures réponses
- Nov 2014 ajouté - Meilleures réponses
- Manipulation d'un document Word avec VB.Net ✓ - Forum - VB.NET
- Insérer dans word à partir d'une application VB.NET - Forum - VB.NET
- Lire le contenu d'un fichier word ✓ - Forum - VB.NET
- Remplir page Word avec les données d'un base acces - Forum - VB.NET
- Visual Basic / VB.NET : Word vba imprimer tout un répertoire de fichier *.doc tous les docume - Guide
3 réponses
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
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
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
pour les notes de pages vous pouvez voir le premier post en haut
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.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).[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
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()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
' 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
je reprends cela car j'ai fait quelques erreurs en copiant et en collant