Option Explicit Sub StartFontOOo Dim ThePath as string Dim aService as object Dim MyFontOOo 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("$(prog)", true)) ThePath=ThePath & "/../share/dict/ooo" if fileExists(ThePath & "/FontOOo.lst") then 'read FontOOo.lst file Open ThePath & "/FontOOo.lst" for input as #1 line input #1, MyFontOOo close #1 else 'create default FontOOo.lst file Open ThePath & "/FontOOo.lst" for output as #1 MyFontOOo=ThePath & "/FontOOo.sxw" print #1, MyFontOOo close #1 endif 'security if Not fileExists(MyFontOOo) then MyFontOOo= ThePath & "/FontOOo.sxw" endif MyFontOOo=ConvertToURL(MyFontOOo) 'Opens FontOOo 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(MyFontOOo,"_blank",0,args()) End Sub