OpenOffice.info

Code: Alles auswählen

XTextDocument mxDocument;
...
XText xt = mxDocument.getText();
xt.BreakLinks(); // das hier meine ich - gibt es so nicht - aber vielleicht gibt es das was ich meine

Code: Alles auswählen

Function breakAllGraphicLinks(aDokument as Object)
   Dim grafiken as Object
   Dim grafik as Object
   Dim i as Integer

   Dim xBitmapContainer as Object 
   Dim xImage as Object 
   Dim internalURL as String
   Dim xTextCur as Object 
   Dim xText as Object 

   grafiken = aDokument.getGraphicObjects()
   xTextCur = aDokument.text.createtextcursor()
   
   xBitmapContainer = aDokument.createInstance("com.sun.star.drawing.BitmapTable")
   For i = 0 to grafiken.count - 1
      grafik = grafiken.getByIndex(i)
      if InStr(1, grafik.GraphicURL, "vnd.sun.star.GraphicObject:", 0) = 0 then 
                xTextCur.gotoRange(grafik.anchor, false)
                xText = xTextCur.text
                xImage = aDokument.createInstance("com.sun.star.text.TextGraphicObject")

                '// helper-stuff to let OOo create an internal name of the graphic
                '// that can be used later (internal name consists of various checksums)
                xBitmapContainer.insertByName("someID", grafik.GraphicURL)
                internalURL = xBitmapContainer.getByName("someID")

                xImage.AnchorType = com.sun.star.text.TextContentAnchorType.AT_PARAGRAPH
                xImage.GraphicURL = internalURL
                xImage.Width = grafik.width
                xImage.Height = grafik.height
                xImage.HoriOrientPosition = grafik.HoriOrientPosition 
                xImage.VertOrientPosition = grafik.VertOrientPosition 
                '// inser the graphic at the cursor position
                xText.insertTextContent(xTextCur, xImage, false)

                '// remove the helper-entry
                xBitmapContainer.removeByName("someID")
                grafik.dispose
      end if 
   next i
   
end function