A voir également:
- Nouvelle page word en vb6
- Supprimer une page word - Guide
- Darkino nouvelle adresse - Guide
- Word 2013 - Télécharger - Traitement de texte
- Tableau word - Guide
- Vb6 - Télécharger - Divers Utilitaires
2 réponses
Private Sub Command1_Click()
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
AppWord.ShowMe
AppWord.Visible = True
'Ajoute un document
AppWord.Documents.Add
With AppWord.Selection
.TypeParagraph
.TypeText Text:="Procédure pour écrire dans Word "
.TypeParagraph
.TypeText Text:="pitxu is the best"
.TypeParagraph
.TypeParagraph
.TypeText Text1
End With
End Sub
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
AppWord.ShowMe
AppWord.Visible = True
'Ajoute un document
AppWord.Documents.Add
With AppWord.Selection
.TypeParagraph
.TypeText Text:="Procédure pour écrire dans Word "
.TypeParagraph
.TypeText Text:="pitxu is the best"
.TypeParagraph
.TypeParagraph
.TypeText Text1
End With
End Sub