OpenOffice.info

Code: Alles auswählen

sub GetTextContentFromFileAndInsert(oEv)
           REM 	Ansatz dannenhöfer 
           REM 	http://www.dannenhoefer.de/faqstarbasic/DokumentEinfgen.html#DokumentEinf%FCgen
	Dim sPath AS String
	Dim sFile AS String
	DIM sURL AS String
	Dim sPrevFormName as String 
	DIM sButtonTag AS String	
	Dim oDoc
	Dim oTargetFrame 	
	Dim oFrameCursor
	DIM sFName as String
	
        oDoc = ThisComponent   
	sPath = "/home/jemies/01_Dokumente/02_springinsfeld/datenbank/"		
	
           REM  Get FileName From Button-Property "Tag"
	   REM 	See: http://user.services.openoffice.org/en/forum/viewtopic.php?f=39&t=18022

	cWhat = com.sun.star.text.GenericTextDocument	
	oModel = oEv.Source.getModel()
	sButtonTag = oModel.Tag

    sFile = Char10 & sPath & Char10 & sButtonTag & Char10 
    sURL = ConvertToURL(sFile)
    sFName = "RahmenName" 

  	Dim myInsertProps(0) as New com.sun.star.beans.PropertyValue
  		'	myInsertProps(0).name = "ReadOnly"
  		'	myInsertProps(0).value = true
  
 	oTargetFrame = oDoc.TextFrames.getByName ( sFName )	
  	oFrameCursor = oTargetFrame.Text.createTextCursor()
  	oFrameCursor.gotoend( true )
  	oFrameCursor.InsertDocumentFromUrl(sURL,myInsertProps())
  	oFrameCursor.gotoStart( true )
  	
  	    REM 	Damit das Display der Seite nach dem Laden längerer Texte nicht ans Seiten-Ende rutscht,
  	    REM	wird der Cursor an den Anfang des Viewer-Rahmens gesetzt

  	myViewCursor = oDoc.GetCurrentController.ViewCursor
	myViewCursor.gotoRange(oFrameCursor,false)
end sub

Code: Alles auswählen

sub OpenDocToViewer
sFile = "pathtofile/file.odt"
oDoc2 = fnOpenDoc(sFile)
end sub

function fnOpenDoc(sFile) as object
sURL = ConvertToURL(sFile)
fnOpenDoc = StarDesktop.CurrentComponent.CurrentController.Frame.loadComponentFromURL(sURL, "_self", 2, Array())
end function

Code: Alles auswählen

function fnOpenDoc(sFile)
	DIM sURL AS String
	DIM oFrame As Object
	sURL = ConvertToURL(sFile)
	fnOpenDoc = StarDesktop.CurrentComponent.CurrentController.Frame.loadComponentFromURL(sURL, oFrame, 0, Array())
end function


sub OpenDocToViewer
	Dim oDoc As Object
	Dim oFrame As Object
	Dim sFile As String
	Dim oDoc2 As Object
	
       ' Get the document that this macro is embedded into.
       oDoc = ThisComponent.CurrentController.Frame

       ' Get the Viewer-Frame within the Document.
       oFrame = oDoc.findFrame("Viewer",0)
  
	sFile = "pathtofile/file.odt"
	oDoc2 = fnOpenDoc(sFile)

end sub

Code: Alles auswählen

SIGSEGV in framework::LockHelper::acquireReadAccess()