Saving a document

To save an existing document:

[oobas] thisComponent.store() But, this maybe a bit too simplistic. So a more generic approach might be:

[oobas] function fnSave(oDoc) if oDoc.hasLocation AND Not oDoc.isReadOnly Then

  fnSave = true
  on local error goto notSaved
  oDoc.store()
  on error goto 0

else

  fnSave = fnDispatch("SaveAs")

end If exit function

notSaved: fnSave = false end function

fnDispatch is defined in The OpenOffice.org recorder and UNO dispatch calls.

To "save as":

[oobas] sub subSaveAs(oDoc, sFile, optional sType) sURL = convertToURL(sFile) if isMissing(sType) then

  oDoc.storeAsURL(sURL, array())

else

 dim mFileType(0)
 mFileType(0) = createUnoStruct("com.sun.star.beans.PropertyValue")
 mFileType(0).Name = "FilterName"
 mFileType(0).Value = sType
 oDoc.storeAsURL(sURL, mFileType())

end if end sub To "export as" (leave the URL of the current document alone but save a copy of the file in the specified format):

[oobas] sub subExportAs(oDoc, sFile, optional sType) sURL = convertToURL(sFile) if isMissing(sType) then

  oDoc.storeToURL(sURL, array())

else

 dim mFileType(0)
 mFileType(0) = createUnoStruct("com.sun.star.beans.PropertyValue")
 mFileType(0).Name = "FilterName"
 mFileType(0).Value = sType
 oDoc.storeToURL(sURL, mFileType())

end if end sub

Examples of calling these routines:

[oobas] subSaveAs(thisComponent, "C:\tmp\NewName.sxw") 'Windows example subExportAs(thisComponent, "/home/ian/Example.txt", "Text") 'Linux example For more information on saveAsURL and saveToURL see XStorable and for the parameters that can be passed to them see MediaDescriptor. Use the above examples as templates for how to use these parameters in Basic.

Read on for the complete list of filters that can be passed to these functions.

File Types

The following routine, written by Danny Brewer (copied from [here]) creates a new document and enters the current filters.

[oobas] Sub Main oFF = createUnoService( "com.sun.star.document.FilterFactory" ) oFilterNames = oFF.getElementNames()

' Create a Writer doc and save the filter names to it. oDoc = StarDesktop.loadComponentFromURL( "private:factory/swriter", "_blank", 0, Array() ) oText = oDoc.getText() oCursor = oText.createTextCursor() oCursor.gotoEnd( False )

' Print the filter names into a Writer document. For i = LBound( oFilterNames ) To UBound( oFilterNames )

  oText.insertString( oCursor, oFilterNames(i), False )
     oText.insertControlCharacter( oCursor, com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False )

Next End Sub