summaryrefslogtreecommitdiff
path: root/wizards/source/importwizard/DialogModul.xba
diff options
context:
space:
mode:
Diffstat (limited to 'wizards/source/importwizard/DialogModul.xba')
-rw-r--r--wizards/source/importwizard/DialogModul.xba11
1 files changed, 5 insertions, 6 deletions
diff --git a/wizards/source/importwizard/DialogModul.xba b/wizards/source/importwizard/DialogModul.xba
index 429982ebff97..1edc13d39cf7 100644
--- a/wizards/source/importwizard/DialogModul.xba
+++ b/wizards/source/importwizard/DialogModul.xba
@@ -381,16 +381,16 @@ Sub SetupXMLConfiguration()
XMLFilterName(1,0) = "sdc"
XMLFilterName(1,1) = "scalc: StarOffice XML (Calc)"
XMLFilterName(1,2) = "sxc"
-
+' Todo: Gepacktes 'sdp' Format ber├╝cksichtigen
XMLFilterName(2,0) = "sdd|sda"
XMLFilterName(2,1) = "simpress: StarOffice XML (Impress)|sdraw: StarOffice XML (Draw)"
XMLFilterName(2,2) = "sxi|sxd"
XMLFilterName(3,0) = "smf"
- XMLFilterName(3,1) = "smath: MathML XML (Math)"
- XMLFilterName(3,2) = "mml"
+ XMLFilterName(3,1) = "smath: StarOffice XML (Math)"
+ XMLFilterName(3,2) = "sxm"
- XMLFilterName(4,0) = "application/vnd.stardivision.writer;application/x-starwriter"
+ XMLFilterName(4,0) = "application/vnd.stardivision.writer;application/vnd.stardivision.writer/web;application/x-starwriter"
XMLFilterName(4,1) = "swriter: writer_StarOffice_XML_Writer_Template"
XMLFilterName(4,2) = "stw"
@@ -402,7 +402,6 @@ Sub SetupXMLConfiguration()
XMLFilterName(6,1) = "simpress: impress_StarOffice_XML_Impress_Template|draw_StarOffice_XML_Draw_Template"
XMLFilterName(6,2) = "sti|std"
-' ToDo: define Filter for Masterdocument
XMLFilterName(7,0) = "sgl"
XMLFilterName(7,1) = "swriter: writer_globaldocument_StarOffice_XML_Writer_GlobalDocument"
XMLFilterName(7,2) = "sxg"
@@ -508,7 +507,7 @@ Dim sPath as String
Dim InitPath as String
Dim RefControlName as String
Dim oRefControl
- oFolderDialog = CreateUnoService("com.sun.star.ui.FolderPicker")
+ oFolderDialog = CreateUnoService("com.sun.star.ui.dialogs.FolderPicker")
RefControlName = aEvent.Source.Model.Tag
oRefControl = ImportDialogArea.GetControl(RefControlName)
InitPath = ConvertToUrl(oRefControl.Model.Text)