From b2fee4758929a0de09161e7bf05478373fa3ce31 Mon Sep 17 00:00:00 2001 From: Behrend Cornelius Date: Wed, 14 Aug 2002 15:40:35 +0000 Subject: #95840# Logbutton now disabled when logcheckbox disabled --- wizards/source/importwizard/FilesModul.xba | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'wizards/source/importwizard/FilesModul.xba') 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 -- cgit