diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2002-08-14 15:40:35 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2002-08-14 15:40:35 +0000 |
| commit | b2fee4758929a0de09161e7bf05478373fa3ce31 (patch) | |
| tree | 272e52ba5adea7c444d21c30016cdb3b37630530 /wizards/source/importwizard/FilesModul.xba | |
| parent | 58ac3eaa9f4d7347963c8c207d2b47e65772479f (diff) | |
#95840# Logbutton now disabled when logcheckbox disabled
Diffstat (limited to 'wizards/source/importwizard/FilesModul.xba')
| -rw-r--r-- | wizards/source/importwizard/FilesModul.xba | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/wizards/source/importwizard/FilesModul.xba b/wizards/source/importwizard/FilesModul.xba index 62f852ddf8a8..d2e6433c9d26 100644 --- a/wizards/source/importwizard/FilesModul.xba +++ b/wizards/source/importwizard/FilesModul.xba @@ -78,7 +78,7 @@ End Sub Sub ConvertAllDocuments(sFilterName()) Dim FileProperties(1) as new com.sun.star.beans.PropertyValue Dim WriterWebProperties(0) as new com.sun.star.beans.PropertyValue -Dim OpenProperties(1) as new com.sun.star.beans.PropertyValue +Dim OpenProperties(4) as new com.sun.star.beans.PropertyValue Dim FilesList(0,2) as String Dim sViewPath as String Dim i as Integer @@ -136,6 +136,13 @@ Dim bIsPassWordProtected as Boolean OpenProperties(0).Value = True OpenProperties(1).Name = "AsTemplate" OpenProperties(1).Name = False + OpenProperties(2).Name = "MacroExecutionMode" + OpenProperties(2).Name = com.sun.star.document.MacroExecMode.NEVER_EXECUTE + OpenProperties(3).Name = "UpdateDocMode" + OpenProperties(3).Name = com.sun.star.document.UpdateDocMode.NO_UPDATE + OpenProperties(4).Name = "Overwrite" + OpenProperties(4).Name = true + MaxFileIndex = Ubound(FilesList(),1) FileCount = 0 For i = 0 To MaxFileIndex |