Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Para vaciar el portapapeles de Word antes de salir

0 views
Skip to first unread message

Soft-inf

unread,
Jul 4, 2002, 1:53:11 PM7/4/02
to
Hola a todos,

Estoy trabajando desde Visual BAsic con Word.
copio unos archivos para luego copiar en otro sitio.

Mi problema es el siguiente:

como copio bastante informacion en Word con el Copy al cerrar el Word me
dice:

Coloco una gran cantidad de texto en el Portapapeles. ¿Desea que el texto
esté disponible para otras aplicaciones cuando salga de Word?
SI NO CANCELAR

Como puedo hacer para que no me salga esta pregunta?


Muchisimas gracias a todos.


bogart

unread,
Jul 5, 2002, 3:16:37 AM7/5/02
to
'Prueba con :
Declare Function OpenClipboard Lib "user32" (Byval hwnd As Long) As Long
Declare Function EmptyClipboard Lib "user32" () As Long
Declare Function CloseClipboard Lib "user32" () As Long

Private Sub VaciarPortapapeles()

Dim vaciar As Long, abrir As Long, cerrar As Long

abrir = OpenClipboard(hwnd)
vaciar = EmptyClipboard()
cerrar = CloseClipboard()

End Sub

S@lud

"Soft-inf" <soft...@terra.es> escribió en el mensaje
news:bY%U8.18791$bv6.1...@telenews.teleline.es...

Soft-inf

unread,
Jul 5, 2002, 4:01:22 AM7/5/02
to
Muchisimas gracias,

Funciona perfectamente.

Saludos.


bogart <NOSPAM...@telefonica.net> escribió en el mensaje de noticias
ag3h4f$b5e$1...@nsnmpen2-gest.nuria.telefonica-data.net...

_= SupeRcOcO =_

unread,
Jul 8, 2002, 6:53:42 AM7/8/02
to
On Thu, 04 Jul 2002 17:53:11 GMT, "Soft-inf" <soft...@terra.es>
wrote:


>
>Como puedo hacer para que no me salga esta pregunta?
>

Mas facil que lo anterior (sin usar apis)

Clipboard.Clear

sldss


_=SuPercOcO=_
linux Reg #98527
supercoc...@yahoo.com

0 new messages