Terry wrote:
Hi, Morten
You need to insert something like the following before your line
defining the dispatcher ( dispatcher = etc )
(in StarBasic a colon substitutes as a line break, enabling you to
insert new code on the same line):
oDoc = ThisComponent : oSheet = oDoc.getCurrentController.ActiveSheet
sSheetName = oSheet.getName : sPath = "file:///home/mojo/Desktop/"
sUrl = sPath & sSheetName & ".html" ' : Msgbox sUrl
Then, replace the present flag defining the value of "Url" with:
args1(0).Value = sUrl
You could replace the use of the dispatcher with StarBasic code, if
you have any interest in doing so.
An alternative to parts of the above is:
sPath = "/home/mojo/Desktop" : sUrl = ConvertToUrl( sPath & sSheetName
& ".html" )
Oops. I omitted the following line which should precede the first
insertion. It is not essential (unless you use Option Explicit) but
desirable:
Dim oDoc as Object, oSheet as Object, sSheetName as String, sPath as
String, _
sUrl as String, vDispatcher
--
If you're seeking, check out http://www.rci.org.au
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
