diff options
Diffstat (limited to 'wizards/source/launcher/FontOOo.xba')
-rw-r--r-- | wizards/source/launcher/FontOOo.xba | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/wizards/source/launcher/FontOOo.xba b/wizards/source/launcher/FontOOo.xba new file mode 100644 index 000000000000..c05e0c11bb2c --- /dev/null +++ b/wizards/source/launcher/FontOOo.xba @@ -0,0 +1,46 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="FontOOo" script:language="StarBasic">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</script:module> |