Opening a Document in Readonly Mode

[dave_dsa]

Hi,

Im trying to open a document in readonly mode using the following codein VB, but I get an error. I would appreciate any help.

'create the service Manager
dim objServiceManager as object
Set objServiceManager = CreateObject("com.sun.star.ServiceManager")

'Create the Desktop
dim objDesktop as object
Set objDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")

'Create the CoreReflection service that is later used to create structs
Dim objCoreReflection
Set objCoreReflection = objServiceManager.createInstance ("com.sun.star.reflection.CoreReflection")

Dim classsize
Dim objParameters

set classSize=objCoreReflection.forName( "com.sun.star.beans.PropertyValue" )
classsize.CreateObject objParameters


objParameters.Name = "ReadOnly"
objParameters.Value = True

'Open the Document
Set objDocument = objDesktop.loadComponentFromURL(strFilePath, _
"_blank", 0, objParameters)

[dfrench]

The following works on my config ... with apologies for my hacker style

[Sameer]

Dev,

i have made bit change in ur code .. just have a look ..

Define Parameter Variable as

Dim objParameters(0)

add pass that variable as below ..
Set objdocument = objDesktop.loadComponentFromURL(strFilePath, "_blank", 0, objParameters())