OpenOffice.info

Code: Alles auswählen

x(li_abzeile) = " | Rechnungsbetrag " & string(42," ") & "| " & ls_repr & " |"

Code: Alles auswählen

Sub Main()
	Dim arg(0) as New com.sun.star.beans.PropertyValue
	arg(0).Name = "Hidden" 
	arg(0).Value = True
	
	dim args2(4) as new com.sun.star.beans.PropertyValue
	args2(0).Name = "CharFontName.StyleName"
	args2(0).Value = ""
	args2(1).Name = "CharFontName.Pitch"
	args2(1).Value = 0
	args2(2).Name = "CharFontName.CharSet"
	args2(2).Value = -1
	args2(3).Name = "CharFontName.Family"
	args2(3).Value = 5
	args2(4).Name = "CharFontName.FamilyName"
	args2(4).Value = "DejaVu Sans Mono"
	
	x = Array("aa","bb","cc")
	For i = 0 To Ubound(x())
		k = k & x(i) & CHR(13)
	Next i
	
	x = StarDesktop.loadComponentFromURL ("private:factory/swriter","_blank", 0, arg())
	x.Text.String = LEFT(k, LEN(k)-1)
	ccf = x.CurrentController.Frame
	With createUnoService("com.sun.star.frame.DispatchHelper")
		.executeDispatch(ccf, ".uno:SelectAll", "", 0, Array())
		.executeDispatch(ccf, ".uno:CharFontName", "", 0, args2())
		.executeDispatch(ccf, ".uno:Copy", "", 0, Array())
	End With

	x.close(true)
End Sub

Code: Alles auswählen

 la_ab(li_abzeile) = " | Rechnungsbetrag " & string(42," ") & "| " & ls_repr & " |"

Code: Alles auswählen

Sub Main()
	Dim arg(0) as New com.sun.star.beans.PropertyValue
	arg(0).Name = "Hidden" 
	arg(0).Value = True
	
	x = Array("aa","bb","cc")
	For i = 0 To Ubound(x())
		k = k & x(i) & CHR(13)
	Next i
	
	x = StarDesktop.loadComponentFromURL ("private:factory/swriter","_blank", 0, arg())
	x.Text.String = LEFT(k, LEN(k)-1)
	ccf = x.CurrentController.Frame
	With createUnoService("com.sun.star.frame.DispatchHelper")
		.executeDispatch(ccf, ".uno:SelectAll", "", 0, Array())
		.executeDispatch(ccf, ".uno:Copy", "", 0, Array())
	End With

	x.close(true)
End Sub

Code: Alles auswählen

Global sTxtCString As String

Sub Start()
	x = Array("aa","bb","cc")
	For i = 0 To Ubound(x())
		k = k & x(i) & CHR(13) & CHR(10)
	Next i
	CopyToClipBoard(k)
End Sub
  
Sub CopyToClipBoard( sText ) 
  Dim oClip, oTR
  ' create SystemClipboard instance 
  oClip = CreateUnoService("com.sun.star.datatransfer.clipboard.SystemClipboard") 
  oTR = createUnoListener("Tr_", "com.sun.star.datatransfer.XTransferable") 
  ' set data 
  oClip.setContents( oTR,Null ) 
  sTxtCString = sText 
  'oClip.flushClipboard() ' does not work 
End Sub 
  
Function Tr_getTransferData(aFlavor as com.sun.star.datatransfer.DataFlavor) 
  If (aFlavor.MimeType = "text/plain;charset=utf-16") Then 
    Tr_getTransferData() = sTxtCString 
  End If 
End Function 
  
Function Tr_getTransferDataFlavors() 
  Dim aFlavor As new com.sun.star.datatransfer.DataFlavor 
  aFlavor.MimeType = "text/plain;charset=utf-16" 
  aFlavor.HumanPresentableName = "Unicode-Text" 
  Tr_getTransferDataFlavors() = array( aFlavor ) 
End Function 
  
Function Tr_isDataFlavorSupported(aFlavor as com.sun.star.datatransfer.DataFlavor ) as Boolean 
  If aFlavor.MimeType = "text/plain;charset=utf-16" Then 
    Tr_isDataFlavorSupported = true 
  Else 
    Tr_isDataFlavorSupported = false 
  End If 
End Function