OOoBasic/Generic/EmbededObject

埋め込みドキュメント

OOo の OLE ドキュメント取り扱い

埋め込まれたドキュメントを外部に保存します。

Sub Main
  oDoc = ThisComponent
  oSelection = oDoc.getCurrentSelection()
  If oSelection.supportsService("com.sun.star.text.TextEmbeddedObject") Then
    sURL = "file:///C:/Users/Desktop/embededdoc.ods"
    oEmbededDoc = oSelection.getEmbeddedObject()
    oEmbededDoc.storeAsURL(sURL,Array())
  End If
End Sub

形式に応じて処理を変える必要があります。