diff options
Diffstat (limited to 'wizards/source/tools/ModuleControls.xba')
| -rw-r--r-- | wizards/source/tools/ModuleControls.xba | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/wizards/source/tools/ModuleControls.xba b/wizards/source/tools/ModuleControls.xba index c2c4d72fe7cc..fab31d51cf1f 100644 --- a/wizards/source/tools/ModuleControls.xba +++ b/wizards/source/tools/ModuleControls.xba @@ -158,7 +158,7 @@ End Function Sub GetFolderName(oRefModel as Object) -Dim oFolderDialog +Dim oFolderDialog as Object Dim iAccept as Integer Dim sPath as String Dim InitPath as String @@ -187,11 +187,11 @@ Dim sPath as String Dim InitPath as String Dim RefControlName as String Dim oUcb as object -Dim ListAny(0) +'Dim ListAny(0) oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess") oFileDialog = CreateUnoService("com.sun.star.ui.dialogs.FilePicker") - ListAny(0) = com.sun.star.ui.dialogs.TemplateDescription.FILEOPEN_SIMPLE - oFileDialog.Initialize(ListAny()) + 'ListAny(0) = com.sun.star.ui.dialogs.TemplateDescription.FILEOPEN_SIMPLE + 'oFileDialog.initialize(ListAny()) AddFiltersToDialog(FilterNames(), oFileDialog) InitPath = ConvertToUrl(oRefModel.Text) |