OpenOffice.info

Code: Alles auswählen

Private oTRX 

Sub datum_zeit_an_Cursorposition()  
Dim null as Object 
oClip = createUnoService("com.sun.star.datatransfer.clipboard.SystemClipboard") 
oTRX = createUnoListener("TR_", "com.sun.star.datatransfer.XTransferable") 
oClipContents = oClip.setContents(oTRX, null) 
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
End Sub 

function TR_getTransferData( aFlavor as com.sun.star.datatransfer.DataFlavor ) as Any 
if (aFlavor.MimeType = "text/plain;charset=utf-16") then 
  TR_getTransferData = STR(Now())
  endif 
end function 
  
function TR_getTransferDataFlavors() as any 
Dim aF as new com.sun.star.datatransfer.DataFlavor 
aF.MimeType =    "text/plain;charset=utf-16" 
aF.HumanPresentableName = "Unicode-Text" 
TR_getTransferDataFlavors = Array(aF) 
end function 
  
function TR_isDataFlavorSupported( aFlavor as com.sun.star.datatransfer.DataFlavor ) as Boolean 
'call MyPlaySoundSystem("SystemAsterisk", true) 'My XP system beep - shows that this routine is called every 2 seconds 
TR_isDataFlavorSupported = (aFlavor.MimeType = "text/plain;charset=utf-16") 
end function