Sub EcriDansWord()
Dim WordObj As Object
On Error Resume Next
'8 est ici le numéro de version de Word (Facultatif)
Set WordObj = CreateObject("Word.Application.8")
[COLOR=red]'Pour afficher Word[/COLOR]
WordObj.Visible = True
[COLOR=red]'Ajoute un nouveau document dans word[/COLOR]
WordObj.Documents.Add
'[COLOR=red]Dans le nouveau document Word, là où se trouve le point d'insertion[/COLOR]
With WordObj.Selection
.TypeParagraph '[COLOR=red]Ajoute un paragraphe[/COLOR]
.TypeText Text:="Procédure pour écrire dans Word " '[COLOR=red]Ecrit un text[/COLOR]
.TypeParagraph '[COLOR=red]Ajoute un paragraphe[/COLOR]
.TypeText Text:="Daniel :o)" '[COLOR=red]Ecrit un autre text[/COLOR]
.TypeParagraph [COLOR=red]'Et Encore un paragraphe[/COLOR]
End With
End Sub