loquat

1. Sub Test()
   
2.     Dim MyData As DataObject, MyStr As String
   
3.     Set MyData = New DataObject
   
4.     MyData.GetFromClipboard    '获±o°Å¤ÁªO内®e
   
5.     MyStr = MyData.GetText     '赋­È给变¶q
   
6.     MsgBox MyStr
   
7. End Sub

½Æ»s¥N½X

You would be happy to see this link
http://bbs.csdn.net/topics/10334313

loquat

这¨½¤]¬O
http://www.officefans.net/cdb/viewthread.php?tid=80822