public function LireFichierDoc ( CheminFichier as string , NomFichier as string ) as string Dim MSWORD As New Word.Application Dim MSDoc as Word.Document MSWORD.Documents.Open CheminFichier Set MSDoc = MSWord.Documents(NomFichier) LireFichierDoc = MSDoc.Content MSWord.Quit False Set MSWord = Nothing end function
text1.text = LireFichierDoc ("D:\Christine\Début\Doc1.doc " , "Doc1.doc" )