OpenOffice.org BASIC Guide.pdf - OpenOffice.org wiki

The StarDesktop 81
This method is also defined in
com.sun.star.frame.XStorable
and can be used to define the location of the document:
Dim URL As String
Dim Dummy()
Url = "file:///C:/test3.odt"
Doc.storeAsURL(URL, Dummy())
In addition to the preceding methods,
com.sun.star.frame.XStorable
also provides some help methods which are useful when saving documents. These are:
hasLocation()
specifies whether the document has already been assigned a URL.
isReadonly()
specifies whether a document has read-only protection.
isModified()
specifies whether a document has been modified since it was last saved.
The code for saving a document can be extended by these options so that the document is
only saved if the object has actually been modified and the file name is only queried if it is
actually needed:
If (Doc.isModified) Then
If (Doc.hasLocation And (Not Doc.isReadOnly)) Then
Doc.store()
Else
Doc.storeAsURL(URL, Dummy())
End If
End If
The example first checks whether the relevant document has been modified since it was
last saved. It only continues with the saving process if this is the case. If the document has
already been assigned a URL and is not a read-only document, it is saved under the existing
URL. If it does not have a URL or was opened in its read-only status, it is saved under a new
URL.