copiar texto de word y pegarlo en textbox
Publicado por Angelux (14 intervenciones) el 16/01/2007 17:34:28
Hola a todos ojala y alguien me pueda ayudar
tengo varios archivos de word necesito copiar el texto a un textbox para despues el contenido del textbox guardarlo como un txt
lo que hago es lo siguiente:
ruta = App.Path & "\" & Fichero
'abro el fichero con word
Set WordDoc = WordApp.Documents.Open(ruta)
'selecciono el texto
WordDoc.Select
'lo cierro
WordApp.ActiveDocument.Close False
quiero que despues del WordDoc.Select poner una instruccion que ese texto que ha seleccionado lo copie al portapapeles y lo pegue en un textbox para despues guardarlo en un archivo txt
si alguien me puede decir como le agradeceria mucho
de ante mano gracias
tengo varios archivos de word necesito copiar el texto a un textbox para despues el contenido del textbox guardarlo como un txt
lo que hago es lo siguiente:
ruta = App.Path & "\" & Fichero
'abro el fichero con word
Set WordDoc = WordApp.Documents.Open(ruta)
'selecciono el texto
WordDoc.Select
'lo cierro
WordApp.ActiveDocument.Close False
quiero que despues del WordDoc.Select poner una instruccion que ese texto que ha seleccionado lo copie al portapapeles y lo pegue en un textbox para despues guardarlo en un archivo txt
si alguien me puede decir como le agradeceria mucho
de ante mano gracias
Valora esta pregunta
0