Sub clipboard_2 oClip = CreateUnoService("com.sun.star.datatransfer.clipboard.SystemClipboard") oTransfer = oClip.getContents() aDataFlavors = oTransfer.getTransferDataFlavors() bType = False For i = 0 To UBound(aDataFlavors) Step 1 aDataFlavor = aDataFlavors(i) If aDataFlavor.MimeType = "text/plain;charset=utf-16" Then bType = True Exit For End If Next
If bType Then ' convert utf-16 to UNO string oConverter = CreateUnoService("com.sun.star.script.Converter") sData = oConverter.convertToSimpleType( _ oTransfer.getTransferData(aDataFlavor), _ com.sun.star.uno.TypeClass.STRING) End If
