Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
François Picalausa
Bonjour/soir,
Par exemple en faisant un copier coller... Programmaticalement, tu peux faire ceci: 'Cocher Microsoft Word x.y Object Library 'Ou créer l'objet via Set WordApp = CreateObject("Word.Application") ' et typer les variables As Object
Dim WordApp As Word.Application, MyDoc As Word.Document
Set WordApp = New Word.Application Set MyDoc = WordApp.Documents.Open("c:MyDoc.doc") 'Le séparateur est le Cr pour word, CrLf pour une textbox Text1.Text = Replace$(MyDoc.Range.Text, vbCr, vbCrLf) MyDoc.Close Set MyDoc = Nothing WordApp.Quit Set WordApp = Nothing
"Jean-Luc" a écrit dans le message de news:59b501c376fe$49037540$
Comment est-ce qu'on fait pour prendre du texte dans un doc Word et le mettre dans un textbox dans une feuille VB ?
Un exemple de code serait le bienvenue
Merci
Bonjour/soir,
Par exemple en faisant un copier coller...
Programmaticalement, tu peux faire ceci:
'Cocher Microsoft Word x.y Object Library
'Ou créer l'objet via Set WordApp = CreateObject("Word.Application")
' et typer les variables As Object
Dim WordApp As Word.Application, MyDoc As Word.Document
Set WordApp = New Word.Application
Set MyDoc = WordApp.Documents.Open("c:MyDoc.doc")
'Le séparateur est le Cr pour word, CrLf pour une textbox
Text1.Text = Replace$(MyDoc.Range.Text, vbCr, vbCrLf)
MyDoc.Close
Set MyDoc = Nothing
WordApp.Quit
Set WordApp = Nothing
Par exemple en faisant un copier coller... Programmaticalement, tu peux faire ceci: 'Cocher Microsoft Word x.y Object Library 'Ou créer l'objet via Set WordApp = CreateObject("Word.Application") ' et typer les variables As Object
Dim WordApp As Word.Application, MyDoc As Word.Document
Set WordApp = New Word.Application Set MyDoc = WordApp.Documents.Open("c:MyDoc.doc") 'Le séparateur est le Cr pour word, CrLf pour une textbox Text1.Text = Replace$(MyDoc.Range.Text, vbCr, vbCrLf) MyDoc.Close Set MyDoc = Nothing WordApp.Quit Set WordApp = Nothing
