Visual Basic para Aplicaciones - Portapapeles

Life is soft - evento anual de software empresarial
   
Vista:

Portapapeles

Publicado por Pedro pedroalopez.pedro@gmail.com (1 intervención) el 25/03/2015 12:52:02
Tengo un formulario con el siguiente procedimiento

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton15_Click()
Dim DataObj As New MSForms.DataObject
aux = "****************************************"
aux = aux & vbNewLine & "F E L I Z   C U M P L E A Ñ O S " & vbNewLine & Cumpleañeros
aux = aux & vbNewLine & "****************************************"
With DataObj
 
        .SetText aux
        .PutInClipboard
    End With
    MsgBox "Ahora puede pegar el saludo en un mail o en otro documento.", vbCritical, "Copiado completado"
 
End Sub

Es decir copia en portapapeles a la variable aux (que es string). luego se debería poder pegar en Word (por ejemplo).
Esto funcionó bien un tiempo pero ahora, de golpe, solo pega cuadrttos.
¿Que pasó?
¿Como se arregla?
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder