SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: novatoSS en Miércoles 9 de Marzo de 2005, 09:17

Título: Copiar-pegar Rápido
Publicado por: novatoSS en Miércoles 9 de Marzo de 2005, 09:17
:ayuda:
Hola!

Estoy haciendo un programa para terminar mis estudios y quiero saber si con VB 6.0 puedo conseguir que al hacer click en un boton el programa de VB esté a la espera para que seleccione en otro programa (utlook) una palabra y que VB me la pegue en en Text Box sin tener que hacer Copi-Paste.

¿Se podria conseguir incluso esto pero sin seleccionar en el segundo programa(Outlook) la palabra? ¿Es decir solo haciendo click sobre ella, no seleccionandola entera?

Muchas gracias a todos/as por leerlo, al igual que por resolverme esta duda que me corre un poco de prisa


A la espera d seleccionar textoy pegarlo
Copiar-Pegar Rápido[/SIZE]
Título: Re: Copiar-pegar Rápido
Publicado por: eliza_marti en Miércoles 9 de Marzo de 2005, 16:57
Hola novatoSS!.. :hola: ..pienso que lo de buscar una palabra en cierto archivo para copiarlo y pegarlo en un text ..si es posible hacerlo...de hecho yo hice un programita que abre un archivo de Word lo selecciona todo y lo pega en un text multiline sin que el usuario no haga más que elegir de un Commond Dialog el archivo que desea abrir....(el programa automaticamente abria word abria el archivo ..copiaba ...pegaba en el text y luego cerraba el archivo y ´cerraba word)...Ahora eso de seleccionar la palabra automaticamente con un click..sin selección ...no creo que se pueda...... :( ...Te recomiendo que investigues y pruebes un poco más !.. ;) ..
Nos vemos!.. :hola:  :comp:
Título: Re: Copiar-pegar Rápido
Publicado por: novatoSS en Jueves 10 de Marzo de 2005, 10:06
:hola: Hola Eliza_Marti:

Bueno,  :(  con un clic no se puede seleccionar, pero.... <_<  

¿Se podria conseguir que haciendo un doble chick por ejemplo en Word  :comp:  , y quedando seleccionada una palabra, que visual basic la coja, por que previamente le hayamos dicho que queremos hacerlo pulsando un Option Button y me la pegue en un text box?
Basicamente renuncio a conseguirlo con un clic, pero con dos clicks ya tengo seleccionada la palabra a pegar.
Creo que me estoy liando mucho pero  conseguiria ahorrar bastante papel si consigo hacer esto, y me lo he tomado casi como algo personal.

NO se donde podria conseguir informacion sobre este tema tan particular   :unsure:  , yo creo que se podria conseguir con otros lenguajes de programacion, pero con Visual basic, me parece un poco dificil. Por favor si sabes donde me podría informar, te lo agradezco enormemente, asi como q te agradezco la respuesta ya dada.

Muchas gracias!. :hola:  y Hasta pronto!
Título: Re: Copiar-pegar Rápido
Publicado por: eliza_marti en Jueves 10 de Marzo de 2005, 16:01
Hola novatoSS  :hola: ..pienso que si quieres copiar  de un archivo de word una palabra asignada en uno de tus options que tienes en tu form..solo debes de abrir word abrir el archivo y ver si la palabra está o no está..y si se encuentra poner en el textbox la palabra que se buscó...sin necesidad de hacer un copiar-pegar... ;) ...
Ahora este ejemplo que te daré  es para abrir un archivo de word llamado c:\prueba.doc...tienes que crear ese archivo con algun contenido para que funcione.. ;) ...y en tu form tienes que agregar una referencia a word...Microsoft Word 11.0 Object Library....este ejemplo te copia en el text todo el archivo que prueba..ahora por codigo puedes almacenar el archivo no en un text sino en una variable y hacer una busqueda de la palabra y luego si está ponerla en el text..:P..bueno eso ya queda a tu imaginación... :) ..No sé..pero a mi se me ocurre esto que te digo.. :P ..depronto puede haber algo más sencillo.. :)

Código: Text
  1. Dim WordApp As Word.Application
  2. Dim WordDoc As Word.Document
  3. Dim cTexto1 as String
  4.  
  5. 'Creamos el objeto Word y abrimos en el documento
  6. Set WordApp = New Word.application
  7. Set WordDoc = WordApp.Documents.Open(&#34;prueba.doc&#34;)
  8. 'seleccionamos todo el texto del documento
  9. WordDoc.Select
  10. 'lo pasamos a una variable
  11. cTexto1 = WordApp.Selection.Text
  12. 'le quitamos el cero binario del final (marcador de fin de cadena de c)
  13. cTexto1 = Left(cTexto1 , Len(cTexto1 ) - 1)
  14. 'cerramos el documento sin grabarlo
  15. Text1.Text = cTexto1
  16. WordDoc.Close False
  17. 'liberamos el objeto
  18. Set WordDoc = Nothing
  19. 'cerramos word
  20. WordApp.Quit
  21. 'liberamos el objeto
  22. Set WordApp = Nothing
  23.  

Me voy.. :hola: ..bye!..Suerte!..y me avisas como te fue!..Ojalá te sirvan de algo mis ideas!.. :)
Título: Re: Copiar-pegar Rápido
Publicado por: cpmario en Jueves 10 de Marzo de 2005, 17:26
Encontré un programa en Planet-Source-Code.com que reúne las características de lo que buscas. Te coloco la descripción del mismo.

Citar
Title: Spell check 2.0 CODED BY JOHN CASEY
Description: Spell check any text chat window you have open, (Ex: look at screenshot). works with almost all windows. By just clicking on a windows text field it gets the hwnd and gets the text from it. If you right click on a highlighted word it can be added or it can give you suggestions. I put in a 1024 letter limit so it would not slow down while your typing, you can change it to be what ever you want in the code.

Enlace: http://www.Planet-Source-Code.com/vb/scrip...=58098&lngWId=1 (http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=58098&lngWId=1)

No pude confirmar si todavía se encuentra en ese sitio, debido a que Planet-Source-Code.com está fuera de línea. Te lo pasaría por email (464kb) el programa es pequeño pero trae un diccionario de 1.8mb
 :)
Título: Re: Copiar-pegar Rápido
Publicado por: cpmario en Jueves 10 de Marzo de 2005, 20:03
Planet-Source-Code sufrió un "email bomb attack" pero ya está en línea y el el código fuente que te mencioné, ya revisé que si se encuentra.

 :devil:
Título: Re: Copiar-pegar Rápido
Publicado por: novatoSS en Jueves 17 de Marzo de 2005, 13:13
Muchas gracias a ambos :rolleyes: , he estado unos dias centrado en otros temas de mi programa,  :smartass:  pero la verdad es que cuando lo he retomado me he llevado una gran alegria  :o  :)  por que tenía por donde seguir :comp: .
Donde estoy no puedo acceder a esa pagina web,  :angry:  pero ya lo miraré desde casa, bienvenidos a la censura   :lightsabre:   .
Espero que me sirva, y muchas gracias, os contaré.
 :kicking: