-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Hi,
I noticed, that instantiating the service "com.sun.star.document.XStandaloneDocumentInfo" via Basic causes a crash :-( SO 8.0 PU 3 is also affected ... please have a look at issue http://www.openoffice.org/issues/show_bug.cgi?id=60116 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.3 (MingW32) Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org iD8DBQFEllUmTiyrQM/QSkURAnLvAJ4lngFtV9qwEG30UDiqEnqTO2HulACdHJLZ AZc5dJDECP87Q65Q0gS7XGw= =ZTJD -----END PGP SIGNATURE----- --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
