Option Explicit Sub StartDicOOo Dim ThePath as string Dim DefPath as string Dim aService as object Dim MyDicOOo as string dim TheDoc as object dim args(1) as new com.sun.star.beans.PropertyValue on error resume next ' Find path aService = CreateUnoService("com.sun.star.util.PathSubstitution") ThePath =ConvertToURL(aService.substituteVariables("$(user)", true)) ThePath=ThePath & "/wordbook" DefPath =ConvertToURL(aService.substituteVariables("$(prog)", true)) DefPath=DefPath & "/../share/dict/ooo" MyDicOOo="" if fileExists(ThePath & "/DicOOo.lst") then 'read DicOOo.lst file in user directory Open ThePath & "/DicOOo.lst" for input as #1 line input #1, MyDicOOo close #1 else if fileExists(DefPath & "/DicOOo.lst") then 'read DicOOo.lst file in share directory Open DefPath & "/DicOOo.lst" for input as #1 line input #1, MyDicOOo close #1 else 'creates default file in user directory Open ThePath & "/DicOOo.lst" for output as #1 print #1,convertFromURL(DefPath & "/DicOOo.sxw") close #1 endif endif 'security if Not fileExists(MyDicOOo) then MyDicOOo= DefPath & "/DicOOo.sxw" endif MyDicOOo=ConvertToURL(MyDicOOo) 'Opens DicOOo main file args(0).name="InteractionHandler" args(0).value="" args(1).name="MacroExecutionMode" args(1).value=com.sun.star.document.MacroExecMode.ALWAYS_EXECUTE_NO_WARN '4 TheDoc=StarDesktop.loadComponentFromURL(MyDicOOo,"_blank",0,args()) End Sub