-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Hi,
as one can read, i still have problems using the XStandaloneDocumentInfo ...
using the code snippet to read and write the documentinfo from different files
causes the following problems:
*.sdw *.sxw
*.odt
read write read write read
write
oo 1.1.5 ok ok ok fails fails
fails
oo 2.0.1 fails fails ok fails ok
fails
can somebody confirm this ?
Oliver
REM ***** BASIC *****
Option Explicit
Sub Main
On Local Error Goto ErrorHandler
Dim oSM, oDesk, oInfo As Object
Dim sFile as String
Dim sTitle as String
sFile = "E:\test.sdw"
' sFile = "E:\test.sxw"
' sFile = "E:\test.odt"
oSM = CreateObject("com.sun.star.ServiceManager")
oInfo =
oSM.createInstance("com.sun.star.document.StandaloneDocumentInfo")
oInfo.loadFromURL(ConvertToUrl(sFile))
sTitle = oInfo.getPropertyValue("Title")
msgBox sTitle
oInfo.setPropertyValue("Title", "Hello World")
oInfo.storeIntoURL(ConvertToUrl(sFile))
Exit Sub
ErrorHandler:
MsgBox Error() & Chr(13) & Erl() & Chr(13) & Err()
End Sub
- --------------------------------
- --
GnuPG key 0xCFD04A45: 8822 057F 4956 46D3 352C 1A06 4E2C AB40 CFD0 4A45
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.2 (MingW32)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org
iD8DBQFDvAhCTiyrQM/QSkURAsCNAJwJrQZwf2uXQyvE0R2QZ7PjpEEcBQCgjdtN
iFAmVAKH+zazmaWqKKMYKPo=
=iphg
-----END PGP SIGNATURE-----
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
