1 2 3 4 5 6 | On Error Resume Next Dim iData As New DataObject, iText$ 'MSForms . DataObject iData . GetFromClipboard iText$ = iData . GetText( 1 ) |
1 2 3 4 5 6 | On Error Resume Next Dim iData As New DataObject, iText$ 'MSForms . DataObject iData . GetFromClipboard iText$ = iData . GetText( 1 ) |