diff options
Diffstat (limited to 'wizards/source')
| -rw-r--r-- | wizards/source/importwizard/Main.xba | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/wizards/source/importwizard/Main.xba b/wizards/source/importwizard/Main.xba index 8084fda702cb..7385c6bc8c96 100644 --- a/wizards/source/importwizard/Main.xba +++ b/wizards/source/importwizard/Main.xba @@ -44,7 +44,7 @@ Sub Main() ImportDialog.ImportPreview.BackGroundColor = RGB(0,60,126) ImportDialog.cmdGoOn.DefaultButton = True ImportDialogArea.GetControl("optMSDocuments").SetFocus() - oBinFilterComp = createUnoService( "com.sun.star.comp.office.BF_MigrateFilter" ) + oBinFilterComp = createBF_MigrateFilterIfPossible() ToggleCheckboxesWithBoolean(True) RetValue = ImportDialogArea.Execute() @@ -186,6 +186,17 @@ Dim i as Integer End Sub +Function createBF_MigrateFilterIfPossible() +Dim oService + On Error Goto RTError + oService = createUnoService("com.sun.star.comp.office.BF_MigrateFilter") + getBinFilterCompIfItExists = oService + Exit Function +RTError: + createBF_MigrateFilterIfPossible = Nothing +End Function + + Function CheckInstalledModule(Index as Integer) as Boolean Dim ModuleName as String Dim NameList() as String |