OpenOffice.info

Code: Alles auswählen

Sub links_on_pictures
	odoc = Thiscomponent
	ocursor = odoc.Text.createTextCursor()
	oViewCursor=oDoc.GetCurrentController.ViewCursor 
	Dim ix as integer
	Dim oDocGraphics as Object
	oDocGraphics = oDoc.GraphicObjects
	For ix = 0 to oDocGraphics.count - 1
		thislink = oDocGraphics.GetbyIndex(ix).HyperLinkURL
		linklist = linklist & "Grafik " & ix & " = " & thislink & " " & chr(13)
	next
	msgbox linklist
end sub

Code: Alles auswählen

  
<draw:frame draw:style-name="fr1" draw:name="Grafik1" text:anchor-type="paragraph" svg:width="3.175cm" svg:height="2.963cm" draw:z-index="0">
     <draw:image xlink:href="Pictures/100000000000005A00000054B0055E5A.jpg" xlink:type="simple" xlink:show="embed" xlink:actuate="onLoad"/>
</draw:frame>

Code: Alles auswählen

oText = Doc.getText()
oCursor = oText.createTextCursor()
mainlink = oCursor.hyperlinkurl

print mainlink 

Code: Alles auswählen

        
while(xParaEnum.hasMoreElements()){

        	Object paragraph = xParaEnum.nextElement();        	
        	XTextContent inhalt = (XTextContent) UnoRuntime.queryInterface(XTextContent.class, paragraph);
        	
        	// String ganzerText = inhalt.getAnchor().getText().getString();
        	String aktuelleZeile = inhalt.getAnchor().getString();
        	xTextRange.setString(aktuelleZeile);
}