CODES SOURCES

- UTILISATION DE WORD -

 

 

Remarques : le code source de ce programme n'est pas optimisé car l'application ne contient pas de gestion d'erreurs. Par exemple, lors de l'exécution vous ne pourrez pas utiliser le bouton "saisir texte" (sinon une erreur système sera retournée) si vous n'avez pas utilisé le bouton "ouvrir Word" auparavant ou si vous avez fermé Word entre temps. L'objectif étant uniquement de vous renseigner sur les instructions qui peuvent être utilisées avec Word.

 

L'interface :

 

Le code source :

 

'(Général)
Dim MonWord As New Word.Application     'Création de l'objet Word

Private Sub CmdEnregistrer_Click()
'Enregistrer le document sous "C:\MonDocument.doc"
MonWord.ActiveDocument.SaveAs ("C:\MonDocument.doc")
End Sub

Private Sub CmdOrthographe_Click()
'Utilisation du correcteur orthographique
MonWord.ActiveDocument.CheckSpelling
'Affichage du texte corrigé dans une MsgBox
MsgBox (MonWord.Selection)
End Sub

Private Sub CmdText_Click()
'Saisie d'un texte à écrire dans Word dans une InputBox
MonWord.Selection = InputBox("Saisir texte", "Saisie du texte", "")     'Ecrire dans la page
End Sub

Private Sub ChargerCmd_Click()
MonWord.Documents.Open ("C:\MonDocument.doc") 'Ouvrir le document
MonWord.Visible = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
MonWord.ActiveDocument.Save     'Enregistrer le document
MonWord.Quit                    'Fermet l'objet Word
End Sub

Private Sub OuvrirCmd_Click()
MonWord.Visible = True    'Affichage de l'objet Word
MonWord.Documents.Add     'Ajout d'une nouvelle feuille Word
'Enregistrer sous
MonWord.ActiveDocument.SaveAs ("C:\MonDocument.doc")
End Sub

 

 

 

 

   

 

          ©Copyright Webmaster 2002